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LA CAO SANS PEINE 


Jean-Pierre Petit 


PROLOGUE : 





PANGRAPHE (la maison d'édition a disparu depuis longtemps) est une 
initiation à la conception assistée par ordinateur. À l'appui, un programme 
écrit en BASIC, qui tournait à cette époque sur un Apple II, dont la mémoire 
centrale était de 48 K {près de mille fois inférieure à la mémoire de mon 
PC). Le BASIC est un peu tombé en désuétude, pour des raisons de mode. En 
effet des BASIC plus récents, s'affranchissant des défaut du langage primitif 
(suppression des numéros de lignes, emploi d'étiquettes pour repérer les sous- 
programme et les adresses en général, redéfinition des variables, introduction 
d'un compilateur) a fini par égaler en performances d'autres langages 
considérés comme plus évolués, comme le PASCAL. 

Mais le BASIC avait un avantage, il était très simple à apprendre, à 
enseigner. Le lecteur-programmeur n'aura guère de difficultés à adapter le 
logiciel présenté 1c1 dans un autre langage de son choix. L'essentiel est donné 
: l'architecture des données, les manipulations de base (transformations 
géométriques), la façon de créer des images à volonté et de créer des vues en 
perspective. 





où les parties cachées étaient éliminées 
en utilisant ‘l'algorithme du peintre". 

PANGRAPHE servit de point de départ à plusieurs équipes de 
programmeurs qui développèrent des produits. Certains eurent même la 
gentillesse de me dédier leur logiciel, évidemment beaucoup plus 
perfectionnés. Pas mal de gens s'amusèrent beaucoup avec 
SUPERAMSTRAD-3D, qui tournait sur un "6128", autre antiquité du 
bestiaire informatique. Avant la lettre il s'agissait d'une "programmation 
orientée objet”, avec recours à une "mémoire virtuelle". Le lecteur pouvait 
disposer d'une bibliothèque d'objet et réaliser tes tas de nouvelles opérations, 
comme des fusions d'objets. Les "translations-fusions" permettaient de 
multiplier des fenêtres sur la facade d'un immeuble, ou des colonnes sur celle 
d'un temple. Les translation-rotation-fusions combinées permettaient de créer 
des escaliers en colimaçon à partir d'une simple marche, etc. 

La CAO est un monde infini. A l'époque nous étions limités par les 
mémoires et les vitesses de nos machines, non par notre imagination. Au 
début des années quatre-vingt, certains se souviendront peut être que javais 
présenté, à TF1, un petit film créé par un Apple Ile, où l'ont voyait une 


succession de vues d'avion d'un village, parties cachées éliminées. Les 
spécialistes se demandèrent comment une machine aussi lente, cadencée à 2 
mégahertz, pouvait produire des images aussi complexes, à une telle vitesse. 
En fait, elles avaient été "précalculées" et stockées sur une carte mémoire 
additionnelle de 512 K (les "pages écran" Apple faisait. 8K). Bref ceci 
préfigurait, avant la lettre, le … videodisque. 

À l'époque où je dirigeais le Centre Informatique d'Enseignement que 
j'avais créé à la Faculté des Lettres d'Aix-en-Provence nous avions utilisé la 
capacité de faire afficher par l'Apple II deux "pages écran”, en alternance, à 
un rythme élevé, pour créer un système de vision en relief. Un moteur 
électrique, fixé sur un casque de moto, actionnait des caches rotatifs, 
masquant et découvrant les yeux droit et gauche de l'utilisateur. Un 
contacteur, délivrant un signal en 5 volts sur l'une des entrées de la machine, 
commutait les pages écran “œil droit” et "œil gauche”, de manière synchrone, 
l'ensemble ayant été baptisé "STEREOCYCLETTE". 

Ma foi, si le lecteur de la "CAO sans peine” manifestent leur curiosité, nous 
pourrons leur expliquer encore beaucoup de choses. Rien ne ressemble plus à 
la CAO qu'un ensemble de boites de MECCANO. Dans la mesure où le 
"source" est fourni (ce qui fut toujours le cas) rien n'empêche un nouveau 
venu d'adjoindre quelque gadget de son cru, un sous programme permettant 
d'engendrer toutes les coquilles d'escargot possibles, par exemple. 

La CAO, les programmes de pilotages ou de jeu d'échec, sont maintenant 
largement répandus et de plus en plus performants, comme les voitures 
télécommandées à pile, où les robots qui marchent. Programmer est devenu 
dépassé ou considéré comme une affaire de pros. Pourtant vous ne trouverez 
nulle part un logciel assez fou pour vous permettre, comme PANGRAPHE, 
de voir ce que vous avez derrière la tête. 
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7 . La we plis de pan Aux 
4 La choures (qui Fam made nombreuses 
$ 4 QU put La plus put Ex mène). 
& 
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is 
IR DMXT (15,17) ,VTU6,13),27 45,17), x45, 1), YUS,R], NC / 


cnrs à L'aide de 17 pomA. 
DR ne \y 
FRE de L'écran, L ja 


quêx. uvAakle 4. ac - 


QE TE A 


F2 


















tte ofaie . Berne , Le nets 
J'ai mu La maux Aux un 
cenloin Lean -Pione PETIT, 

dons Lin amnêsa 80. Ce propane 
À apple PANGRAPHE et 

a L'or de Apandue à La 


PANGRAPHE 


— C'est un aie qu a él ché Aux un Apple I 48 K€ 
Contant das gctbime poumctlont de CRÈER DES OBJETS oc co 
à Une STRUCTURE D'ACQUISITION PE DONNÉES. 


On peut a ln otocke «os yets qui gt cles Échos pont, 
Sr Un ide AouyLe june oiakoËts 


den ernyemblin de CHAINE 





,Beumao 
FUN RE 


pi 
53 
cô 





- PANGRAPHE OBJET 4 pit pan un PROGRAMME 
PRINCIPAL, for £'udiimédiase d'un MENU 3 QUE Rem 
a but un evaemll do SOUS - PROGRAMMES 


O0 IF FD = 1 THENS 

1L=0:REM PANGRAPHE OBJET 7/7/:4 

2 DIM XT(30,9),YT(30,9),ZT(30,9),X(20,9),Y(30,9),/N(30):FD = 1 
3 D$ - CHRS (13) + CHARS (4) 

S TEXT : HOME 

S IFC* * OO THEN 310 

10 HOME 

29 MEM 


PROGRAMME MENU 


30 VTAB 15: HT2LRE 15 
40 FRINT "VOULEZ-VOUS: 
So0 FORTE = 1 TO SO0O: NE X'T 
SO HOME 
70 FRINT 
50 VTAB 3: HTAB 26: PRINT 'PANGRAPHE OBJET" 
70 VTAB 1 
100 PRINT "1i-CREER UN OBJET" 
110 FRINT "2-STOCKER LUN OBJET" 
120 PRINT "3-CHARGER UN OBJET" 
130 PRINT "4-COMPLETER UN OBJET" 
140 PRINT "5-MODIFIER UN OBJET" 
150 PRINT "'S-(REPRESENTER UN OBJET)! 
160 PRINT "7-(STOCKER UNE IMAGE)" 
170 PRINT "S-(CHARGER UNE IMAGE)" 
150 PRINT "S-MANIPULER UN OBJET" 
199 PRINT "1O0-DEFINIR UN BLOC D'OBJETS" 
200 PRINT '11-CONSULTÉER UN FICHIER BLOC" 
#10 PRINT ‘"i12-" 
220 PRINT ‘13-" 
230 PRINT '"'14-"! 
40 FRINT "is" 
90 PRINT "'16—" 
260 PRINT "17-AFFICHER LE CATALOGUE" 
270 PRINT "15-SORTIR DU PROGRAMME" 
220 INPUT "VOTRE CHOIX ",C 
290 IF C=17 THEN PRINT D#"CATALOG"'': GET A#-:- GET AS 
300 IF C= 1: THEN END 
310 ON C GOSURB ?000,3000 r4000,2010,5000,40000,40000,4900 
0;:17/7000,2:000,29 
0006 
97797 GOTO 10 


La êianes X 6 4m commentées plus Lun 

le. MENU AVVOQUEZ À ‘affichage Aun €'ecran l'OPTIONS. 
nos. dt ndiquees entre fparoathèses ka au 
Fa 1 Céthrun dlget) anse aus AUX PAR ERA mA S 2 6 D D 
L' open 2 (afochar un objet | eut Qu eus. frogriamme 3 20 
EC. 

a Le 3 &t atocde aux ORDRES DOS. Rat 
Ode PRINT duiux oe D'É, fus d'une matin DOS 

AFAQ Aa rè le Na COMME. Un iohe dd Arpresécon Mat 4 
Comme. une Walhmdior du DISC OPERATING SYSTEM. 


A 


St 


L'ontim 17 € netènue La Ligue 2935 frovoquara. 


L'affichage du CATALOGUE 


CREATION D'UNOBJET 


(2 4vua propane cnlamt ur SOUS- MENU PR 


Andéents dia SOUS - OPTIONS. 
À Lüque 2985 oo uilialiue La vexalle LL, œux 28€ 
L'indice de chaine 


2000 REM 


CREER UN OBJET 


2005 
2010 
2020 
2030 
“0 40 





HOME :L = © 

HOME :: PRINT "VOULTEZ-VOUS::t: PRINT 
PRINT '"'Ii-CREER DES CHAINES" 

PRINT "C-FOINTILLER DES SEGMENTS" 

PRINT "3-CREER UN CERCLE" 

PRINT "4-CHAINER DES CERCLES" 

PRINT "S-CHAINER DES COUPLES" 

PRINT 'S-CREER UN ARC DE CERCLE '": PRINT 
INPUT "VOTRE CHOIX ';C 

ON € GOSUEB 10000,11000,17000,13000,14000,1000 
RETURN 


CRÉATION DE CHAiNES 


_ c'est La SOUS OPTION 4. 





10000 RE M 


CREATION DE CHAINES 


190040 L= 12 +1 

19050 INPUT "NOMBRE DE FOINTST ':N(L) 
100860 J = © 

10070 J = J + 

1000 PRINT "POINT NO “,)J 
10090 INPUT "“XT='"';XT(L,J) 

10100 INPUT "YT="; WT(L;,J) 

10110 INPUT "2ZT=";2ZT(L,J) 

10120 IF J = N{L) THEN 10140 
10130 GOTO 10070 

10140 INPUT "UNE ERREURT?7';RS 


101850 IF LEFTS (R#$,1) = "OO!" THEN 10050 
101650 INPUT "UNE AUTRE CHAINE: "RS 
10170 IF LEFTS (R#,1) = "OO" THEN 10040 













Une Ati adluce pour décalhr. Le exe d'un REM (Vox 
page précédert) ; 

Loaqu'on entre a nognamme otane €'Ap@ IT, immédiat - 
Want apr Le REM, frapper oloux Bois TCentel T), puta 
Le y , fu à naurean eleur TT, et em Lin -progen ur 
@ faisant où à imnout Lo CARACTÈRES DE CONTRÈLE JT 
gi evhroiment our LISTING des SAUTS DE LIGNE, mais amd 
afpaoke exphiofemat. Celle astuce permet une abattre 


— Ga c'at L'ENTRÉE DE DONNÉES BESTIALE. Cu covmence, 
à La Love APE for intrementex €'éndice oo chaire 1. 
Pur, L'ndinateur amande Le mewmQua ete Roimtz ota La 
have. 

— St ona um Corlaur be as 
Mamie on Amar ox hymne augmenté l'une LACE e 


qua. draur af y QMe > Spoin fr. 


On our allo La daixe dos XT, NT, ZT Aacur. G qui 
Correct & Colin Cnpleteurent Len points où 2 yet 
Jin une ÉPURE . 
Le Cat 19122 pure une SORTIE DE LA BOUCLE DE SAÏSIE. 
Si me « ak Lane. hou fcefa aANure Arureut |, Le question . 
MOMENT A8 14 panraet ole AR CANNMRRUACCA La einen ce 
ch acquit te cet chaine . 

OR peut, 2m naalaut dans M AÆud -fhogramme TEÉSX, 
CAR | 
om ve céne pas entr roux Ée Marat d'autre claire 
Le RETURN renvena aux meme, où AUTEÉ au eue menu 
UeREATION D'OBSET , Érque ranvena à doux ur aux manu : 


a a odeme clin fl méalnr dt'abtet, om s'onentaa 


Area À'eplimn : 

D COMPLETER UN OBJET 
Qui, Cine Le. mrnle a L'oyne LS, ErageÉ à Le ane 21%. 
Ce. AU ae rame cg... 2499 fun A came COS 
c'eit à one La namie à géo cle L'éniee ote chaine L. 
Lit, ete. 
OK Aremo ee mue d'affiche <a Fun Maux : 

VOU LE Zz - VOUS : 


ÎOREER DES CHAINES 

2—POINTILLER DES SEGMEATS 

B-CREER UN CERCLE. 

A _CHAINER DES CERCLES 

S'. CHAINER DES COUPLES 

G-CRÉER UN ARC DE CERCLE 
VOTRE CHoix 7 


0e 







A purrane ane Ce PERCPECTIVE cd 
” da de 
et Laqu on R UML VISION RAPPROCHÉE 
A Un cher nacitique., coin mat paré {a 


une COURGURE APPARENTE , 








È 
Cenrvawsz c'aat cmeplique | Aya qu'il est 27 Arr e 
te ut parcaumts en comrelmmndes héniques À, 8,8 





_ Scan veut rgniçetes un cube en wirim napohde, en 4e 
Cork tant dos Uumaaes de eo RL Frmmits, on Hero luns- enzuA - 





craie che Ch EnEEe | | 
- Poux énta fl enoux 10 Haut ai fes ext POINTILLER 
Qoa eonrenta xs pro cKreA a Re (as runt (tua - ro - 
apanrnre AD | on ondiquua Les csndennês du debut du 
He art (Xp,Y5, 20), celle de Aa Fr CXF, YF, ,2f).le 


F 
 -—— + S 
dl D “di 
A A 


1. 


11000 REM 


POINTILLER UN SEGMENT 


110101 =14L+1:N(L) = 
110290 PRINT "DEBUT DU SEGMENT ‘ 
11930 INPUT 'X='';:XD 

11040 INPUT ‘'VYV='"';VD 

11980 INFUT ‘Z=';,727D 

119060 PRINT "FIN DU SEGMENT" 
11970 INPUT ‘'X='",:XxEF 


11020 INPUT ca 

11090 INPUT  Z2F 

11100 FOR ve 1 TO S 

11110 XT(L,W) = XD + (XF — XI) # (WW — 4) / 4 
11120 YTL,W) = VD + (VF — YID) # (WW — 4) ;/ 4 
11130 ZT(L;,W) = ZD + (ZF — ZD) # (LV — 43 / À 
11140 NEXT WW 

1199S RETURN 


CRÉATION D'UN CERCLE 


C'est La SOUS - OPTION 3. 
PAIN Waragomé en. OCTOGONE Noiulfen cas Le 


NP YC,ZC), am nan R et par L'agimut ete 
ME ot L'AXE. AXE 
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12000 


RE M 


CREATION D'UN CERCLE 


12016 
12015 
12020 
12030 
12040 
12050 
120480 
12085 
12066 
12070 
120850 
12025 
12090 
12100 
12110 
1:120 
12130 
12132 
12133 
1:134 
12140 
12150 
12140 

21/70 
121=0 
12190 
12200 

=210 


122 


2230 


en en 
nn a 


12233 
12234 
12240 
12250 

2260 
12270 
1220 


12999 


K y à CVS 


O, 18539 ext L'eéguiralont, en Aariandg l'un aura fe le FS ° 
C'ek à de 4x __o,38539. 
À &d 





HOME 

PRINT "CENTRE DU CERCLE:': PRINT 
PRINT : INPUT "XC='"';xcC 

INPUT "VC tEVC 

INPUT "2C=",2C 

PRINT : INPUT "AZIMUT AXE ‘"';,Ax 

AX = AX # 3.1416 / 1:0 
PRINT : INPUT "ANGLE DE SITE AXxXE:'';SI 
SI = SI # 3.1416 / 1:0 


PRINT : INPUT "RAYON "R 

CA = COS tAÏ:SA = SIN (AX) 

CS = COS (S1):5S = SIN (SI) 

L=tl+i 

N(L) = 9 

J=0 

J=J+1iW= CJ —1)+.725 / 2 

XO = 0:YO = —R# COS (W):Z0 = R # SIN (WW) 
Xi = — 20 5 SS + XOo # CS 

Yi = YO 

21-20 # CS + XO *# ss 

XT(L,J) = X1 # CA — Y1 # SA + XC | Rotation 
MTL: TJ) = X1 æ SA + Yi # CA + YC | 
ZT(L,J) = Zi + 2C 42: muftele 
IF J=9 THEN 127190 

GOTO 17170 

LL ei 


NL) = 9 

J = © 

J'=J+1:W= (J— 1) # ,.725 / 2 

XO = O0: YO= —R # COS (W):2ZO = — FR # SIN (WW) 
X1= — Z0+#SS + XO + CS 

Yi = YO 

Z1=2720+CS + XO + SS 

XT(L:,J) = X1 # CA — V1 # SA + XC 


YVTL;,J) = X1 # SA + Y1 # CA + YC 
ZT(L;J) = 21 + ZC 

IF J=9 THEN 12999 

GOTO 12220 

RETURN 


AG, 7,2 S * 


pale james de Te à J = 9. 





ru foinlx clans le église d'Axe 


On bfnenr enrats Are Aa aient 0 Z d'u anoyle AX 
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XÉ —> X8 @UAX) — YR Sum (AX) 
JE —> Kg SR CAX) + Yg Su (4x) 
LÉ —> ZÉ 


Puu où efface Là tanshlalon. 
X£ MAX) -YESUAX > dem + KE 


Kg Su (Ax}+ YH Ga (AX) 
e É 


Caux + ce 
—+ Eau +ZEC 


ATAUG 1216 D A1146S. 


CR demain A D A Le in Here ce € agua 


Me ame 1A2ge se , AA C4 ch | 


OBJETS 
PAT 















Te ua peut - ba cn, | 


nous autres os Supérioun, | 


que 





Dot un 4ouA - ognamvme qui poumef de one des oo a nes 
Coaiaux , Æ de hainer Lea #omvmets 
aux cui . L'axe ces cétogomes Etant parallele à ox. 


13000 


RE M 


CHAINAGE DE CERCLES 


13010 
13012: 
13013 
13014 
13020 
13030 
13040 
130350 
13060 
13070 
1300 
13090 
13100 
13110 
131:0 


amAa Lea Luna 


HOME : PRINT "CERCLES COAXIAUX / / OX" 
PRINT : PRINT "AXE DES CERCLES": PRINT 
INPUT "YC="; VC 

INPUT ‘"2ZC="';2C 

K = © 

K K + 1: PRINT : PRINT CERCLE NO '':K 


La LL + 1:N{L) = $ 
INPUT 'ABCISSE ‘';,x0C 
INPUT "RAYON "3: R 
FOR J= 1 TC 

VW = J # ,7535 

XTiL,J) = XC 


YTELD = CC —-R # COS (W:ZT(L,J)) = LC+R #*# 
NE XT J 

INPUT "UN AUTRE ®:";:R# 

IF R$ = "OUI" THEN 13030 

FOR I=1iTC 


L = LL + 1:N(L) 
FOR J= 1 TOK 

XTÉL,J) = XTL —K —- I + J,1) 
VTT Led) = YTEL — K — I + J;,1) 
ZT(L,J) = ZTL —-K —-1I+ J,I) 
NEXT J 

NE XT 1 

RETURN 


K 


Ne 


SIN (wo) 


ZT 


En 139415 ÆA314 on détonf Le hauw de L'an cu L'ibaet de 
néaroltie , jarallle à L'axe Ok, aux € plan Yr0Zr 


Ÿr 
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K eot L'inoitw du cncle médium. L'ivnémantatrn eat- 
elfeluie a Lo Lique 1363. Le. Meuveau cercle et une 
mauve choëe d'où umoimeutatin de L'(mdice de chaire) 
Hana La Lqyre 139 4. 
Em 1395p et 13268 où doflut L'akoisse Xe et Le rage R 
Ve £a Lire. 13915 à Ka. Eqpne 13119 on “crée 4 œnle 
Aoua La fre d'une house ol genale 

Ruand Unes ca coxchex | aa célogenes 4m Créer , on ra 
Lex" Haine | 

Bu dibuh par un FORT=1710 & 

Kya ou effet ul bonus à Lier , de prceceen proche 
Zur K cena 
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ME AUANGE Lea centèna trutrs. Chaque hacgphine, laque. 
Aeceur (humce ,jancitetue, cation natale | doumancte 
LA Anis chune L'actu te ape ca lent adaptés . le Att4 
hrognamt G-apris ef um exemgle. de. fre celine Apécialiéee, 
allochio à uvre variant octo PANGRAPHE nommée NAViGRAPHE. 
(2 Coques ea MOATILA Aron A candliluñon ole COUPLES ef la. 





COUPLE 
QUILLE 


La QUILLE eax tune. Aimple eflatne 4 Rae. | 
L'eunnemite COUPLES - BoORDÉS Sugqere um ebatnage 
anakoqe Qui mé ce dent. 

Le PLAN DE FORME L'un maute va Lans an Le. 
ram d'un watain mme de coupes : 


Ve .… 


On wpudenlina , fion AG , «4 couples à L'aide de cyrlotd 


14000 REM 


CHAINER COUPLES 


14010 PRINT "COUPLES AXES SUR OX" 


1400 K = OL = € 

140530 K= K +1: = L + L1:Nébi =s 
14050 PRINT "CCLUIPLE NUMERO "KR 
1400 PRINT '"'UHONNEZ S FTS :!' 
14050 FOR J = 1 TO 

14090 FRINT "POINT NIIMEÆROQ "'';J 


Te | 14109 INPUT "X=" XTéL, Ti 
SAISIE DES POINTS CONSTITUANT 14105 INPUT "Y=":V TEL, J) 
14110 INPUT Zen rTit D 
LE  COUPLE Kk 14150 NEXT J 
14130 INPUT "UNE ERREUR: ':R# 
14140 16 R$ = "OUI" THEN 14050 
142380 INPUT "UN AUTRE COLUIPLE®" 
14840 IF R$ = "OUI" THEN 14030 
1426860 FOR I= 1 TO S 
; / 14770 L = L + 1:N(L) = K 
FABRICATION DES BORDEES 142520 FOR J=1iTOH# 
14790 XTCL,J) = XTUT,I) 
14200 VYT(L,TS = VTT) 
14319 ZT(L,J) = ZTJ,1) 


14320 NEXT J- NEXT I 

14331 FOR I=1 TO KR: FOR J = 1 TO 
LSSSE) PRINT AT (Ii INTEL, 2 TT, 
14333 NEXT J: NEXT I 

14334 GET A% 

14340 GOSUB 3000 


FABRICATION DE L'ORJET SyneTRiQUE | 14520 FOR 521 TOURS 
PAR RAPPORT AU PLAN KTOZr 14370 VTC, Tr = 


et ASP TaE 
14980 NEXT J: NEXT I 
14400 GOSUEB 3000 
149799 RETURN 


On Jul Cut add 

Urdiquer Le Mere NB 

a HomÂr criant Le 
Couple N2k DEMI-COUPLE.. 


De AY PER à 14102 où Mani Leo NB grmamels ol cœlle Eane. 
bise qui m' ext Ras M cRaacunement share . 
De 14169 à 1482 on 'elloine" «eg olami Coup Lei 
en fabiaquant Ls NB BORDES. 
Un GoS08 3ggo (von pôus Eu) 
peut ol STOCKER ct chyt- 
qui cenéliie uvre. DEMl- COQUE 
Taibend ox ef. 
41 


De AFISY où 1428m où cie La den Coque Symeliaue. 
put au pou K 70 27 (en hommeont VT (2,5) en =YT(1,7) 
. EF mm atoclée ce. mauwel cbuot. 


Le Ponant. PANGRAPYIE 
MORCEAU PAR MORCEAU. 
BAR. 2 fonents GÂ, gag = PONT 
QUILLE 
COQUE BABORD AVANT 
COQUE BABORD ARRIERE 


COQUE TRIBORD AVANT 
COQUE TRIBORD ARRIERE 





#2 


Les 
COQUE 
SAB 
| 0RD À 
OQUE BABORD AVAN n 
rat 
y ES ox L'art. Fe 
| _. | 


Are se url qu | 
| À AR 
AS dla VUE. : 
/ 
Le 4 





Ke Ov 
pprum re 
| N ktm éant Lo amet 
/ ga Let Ex N » 
AenmX CAR. es 
cneer cles élement Aura mois ote nn 
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TR gift done poomble, 2 portart d'un Alan riamaute - 
de neprisentor un bat auven Cap box e. HA" Are. | 
Are C LR PMACAD GR alBUR : 





STOCKER 
UN OBJET 


Haqus cet ,où Sfémaont d'un Get, Er un ebon. 
Guasmd +'operatin de SAISIE ct acfravuée , Let wtique 

la STOCKER CET OBJET dur une Lishkoffr. nvergemat: 
Le ANA Jp Us ON ane pps nenbtinene Le Tramatert En MAMIE 
Cuktoke de cs ef - etet Voua aa | cafeumimaut au 
DOS 4: C'APPLE TT, aue tait padie PRINT autut ou tanaclôr 
bé = cCHRY(4) (ofonr à La Lique 3) jua intimité mon 
Cesare Un Midie d'alim |: Mais Came un ORDRE DOS 
Daws Le Aus quoch ane OP, Ci - apiA, DA Caen. fan 
stocker Le manne L ele efaines, fac Le Bicfor NCL) 
devant €Le. membre de Rat ts elanne ef ague chaire. 
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Erkix Gr. PAATENS CUX al deuge. des fichu tee 
NI Te 


STOCKER UN OBJET 


3010 INPUT "NOM DE L'OBJET" ,0# 
3020 D$ = CHR (13) + CHR#& (4) 
3030 PRINT D#'OFEN' ,O# 

3040 PRINT DH'WRITE’',O0# 

3050 PRINT L 

3060 FOR I=1TOL 

38070 PRINT Nil) 

300 NEXT I 

090 FOR I1=1 TOOL 

3100 ROR J= 1 TO Nil) 

3110 PRINT XT(I,J): PRINT YTél,J): PRINT ZT{I,T 
3120 NEXT J: NEÉXT I 

3130 PRINT LD$é'ClLOsSsEH"',O# 

3997 RETURN 

40006 REM 


CHARGER UN OBJET 


pur | Là LT: ” LE 4 nf 


CHARGEMENT OBJET 


4010 INPUT "NOM DE L'OBJET ‘0 
4020 D$ = CHRS (13) + CHRS%& (4) 
4030 PRINT D#'OFEN',0O# 

4040 PRINT L$#''READ':0# 

4050 INPUT & 

40860 FOR I=1 TOOL 

40/0 INPUT Nil) 

4006 NEXT I 

4090 FOR lIl=1iTOL 

4100 FOR Je 1 TO Nil) 

4110 INPUT XT(I,J): INPUT YT(I,Ji: INFUT ZL'TéT,«T)} 
4120 NEXT J: NEXT I 

4130 PRINT LD#'CLOSE' ,;,O# 

49997 RETURN 


#5 


(& £ouamt, DR pires 
Ava - mans CREER UN OBJET” 


Voyas comment 


ODiFiER UN OBJET 


9000 REM 


MODIFIER UN OBJET 


5010 HOME 

020 GOSUEB 30000 

5030 PRINT : PRINT "OBJET DE '"iL;" CHAINES": PRINT 
SO40 INPUT "'ODONNEZ L'INDICE DE CHAINE ";I 

5050 INPUT "DONNEZ INDICE POINT SUR LA CHAINE ";iJ 
5060 PRINT 

5070 INPUT "XT(I,J)=";XT(L:J): PRINT 

5020 INPUT "YT(l,J=";YT(L,J): PRINT 


2090 INEUT MZT(id)=";ZTCsJ): FRINT 
5100 INPUT "UN AUTRE POINT ";r# 
8110 IF LERTS (R#&,1) = “Q" THEN 5040 


5120 GOSUE 3020 
535% END 
5799 RETURN 
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CRÉER UN ARC 
DE CERCLE 


Dans Êe Ana rime Mau Amd RaulE Une run op ” 
DRE EE PE Ca na Ta ER peur A CON S: 


» .” 
SL 


ak ans de culs (Xc,Yc,2c) 

2 om me inrailna à de 

aa d'oxe perallln à 7 
OX OŸr, OT. 


(e AA de en cauuu our quais aera Le sens Vioonoueligee. 








Race 27 
2 Vanés Lain ci de cle. 
É Le OXtC naxen G=0 ef ER. 
2 
” ANA els Faits 
ne ge 
dy g=0 AN — XT 
O5 OA 
2 


qui dlnmine Le 4 
20  Vabuuns eo OyeN Po 





4e 


1000 


RE M 


CREATION ARC DE CERCLE 


19109 HOME :HX = O:KHY = C:EKZ = © 

1015 VTARB 15: HTABE = 

1020 HOME 

1030 PRINT "COORDONNEES CENTRE DU CERCÇCLE"': PRINT 
1040 INPUT "XC=";XC 

10850 INPUT "YC="; ve 

10860 INPUT "2ZC=",2C: FRINT 

1070 PRINT "CERCLE D'AXE PARALLELE A:'"'": PRINT 

105:0 PRINT "'i1-OX 2-OY% 3-07: PRINT 

1090 INPUT "VOTRE CHOIX ‘;C: PRINT 

1095 INPUT 'RHRAVYVON DU CERCLE ‘;KR 

1100 IF C= 1 THEN FX = 1 

11iO IF C- 2? THEN FR Y = ! 

4110 IF CC = 3 THEN KZ = 1 

4130 PRINT "SENS DE PFARÇCOURS TRhRIGO HABITUEL"': PRINT 
11406 INPUT 'OÆONNEZ THETA 1,DE RES: ",;T 1 

1150 INPUT "DONNEZ THETA 2,DECRES:'"';,TER: PRINT 

1180 Ti1i-= Ti +k+r 3.141848 / 1=0: REM CONVERSION LEGRES/RA, 
DIANS 

11709 TE = TE #k 3.1416 / 1:00: REM CONVERSION DEGRES/RA 
DI£NS 

1150 DT = (TE = T1) / = 

41140 L-=LL+i1: REM NOUVELLE CHAINE 

1#00 Ni = SEM 9 POINTS SUR LA CHAINE 

4710 FOR K = O0 TO z:: REM CREATION ARC DE CERCLE 
12270 CT = COS (T1 + DT # K):ST = SIN (T1 + DT * K) 

12930 REM LISNES TRIGO DE THETA 

1225 J = K + 1 

1240 XTL, TI = XC+FY << FDA CT + ER 

12450 YTL,JI = VE +FX = CT + FZ + ST) 5 KR 

1240 LZT(L,J) = LC+ HE + HVYIKkSTT+R 

1:70 NEXT K 

1275 FOR J= 1 TO 9% 

1220 XT(L,J) = CINT (1000 +&# XT(L,J)ir / 1000 

1270 YT(Ls,J) = INT (1000 # YT(L,J)i} # 1000 

1300 ZT(L;,Ji = «INT (1000 & 2ZTL,;J))i ff 1000 

1400 PRINT ÉET(IL:J),Y TL: Tr: Z TL #47) 

1410 NEXT JT 

140 CET 44% 

199$ RETURN 


Em 44997 119,142 où Au Lo RoraN avec oo FLAGS 


(lance do coule a ag yelm 
we home à Rail wte et 

Aorema DTHE TA rep 
Dico aowaot de TP dort 
ke Gad 


Ru A6 


Æ 


ASE AVTB T2, 1238 permette en le pont TM ET 
can Las Gen tea do frque :{ (FX 31, FYSH, F2 =f ) 
CFX é,FY=1, Fz=e) 
(Fx=#,fy= #4, FzZ=1) 


pre 


\] 


(ES 


ous Hu a va fratte [nrru net er fic d, 
Agns es muntalrans ef Le, axe4 duoyme | 
EA ge rulames ouue tm GET A 


Revenons cu_ MENU A Ex À Où y sue We Ha 
S_ MANIPULER UN OVE 


Gintier Cu LR Mi ssutiiins 


17000 RENM 

MANIPULER UN OBJET 

17010 HOME 

1/70E0 PRINT "VOULEZ-VOUS: "': FRINT 

17050 PRINT "i-OPFERER UNE TRANSLATION DE L'OBJET": 
PRINT 

17040 PRINT "T-OPERER UNE ROTATION’: PRINT 

17050 PRINT "3-CREER LE SYMETRIQUE % UN PLAN': PRIN 
T 

170860 FRINT "4-FUSIONNER DEUX OBJETS": PRINT 

17070 PRINT "S-HOMOTHETIE’": PRINT 

17050 FRINT ‘'é—-AFFINITE’: PRINT 

17090 PRINT "7-HOMOTOFIE ": PRINT 

17100 INPUT "VOTRE CHOIX ‘,C 

171190 ON © GOSUB 17000,20000;:1=:000,71000,227000,73000,740 


GO 
17999 RETURN 


Dans ce Aout vom ne D PE nes 
d'péakna lameutansa , déomtrquan Prur mis co manipule - 
na d'otyh, À Du auree tr EH Of al cHauoligmnnix, 
ca d'antan CHin former 
Prague me cbget qua AT La rate gueule ge 

ie 


ÿ 
: X7 


4) 


Ve de Cut fore qa amas 
el A Di da gl a-temie , 
que mod cfpéruma GRILLE 





1inxTrOe,4),YTG6,7,2TG5,4), N (Gp) 
: Dh= cHRS(4) | 
N'gun AVE 44 ba cer exe Burt cotté que , fra son À 
Ja Le pr (B,6, S), Maour mur alles Vin Légprsnnn La. 
don Jarar que & port (ÜT=p;\T=#;2T=f) af angle 
ee NTEPAENTe PETER (Ge qua ma pouls. plu 
As annee 104 d'auante de paer à Raters Un cle, en Eur louf- 
que L'un de Aa Jan re mt confondu avec € Jeu À° 
chsennotess . D'ou 
A# XT(1,1)=2812 :YVT(GA]= FT: 2=E 
Des Date NCIS ( Heu fonts run @ efaive ) 
3% FoRJj=2T09 
48 Y1,\=8:YT(2,1)=2J-1:2T(1,3)= 59 
6 NEXT J VE 


SERRES SN US 


Uno quite Ch Conde , Prat (XTE= 2.1 
| : NT= 2 1 
cad ra. ele VT A ZT=$ 
YT = 1 
NT = 2 
ONE SPRL ap 
YT=S 


50 





<< 


SOPUEE T RE Sa 


GE FAR Le To 
F6 FORT =1To) 

38 XT(TLI)= 1-4 
48 NT (L,J)= J-1 
lg ZT, ]) =$ 

I] NEXTUJ:WNEXT I 





AL XT (1g,1)=8.1 : YT(B 1-41 :2T(1p,1) = 5# 
13% NET) = Le 7 
148 TORT-L2TO2 
TSI IS PTT Ter 2er ir Tes 
169 NEXTT 
; ŸT 
CAee : 


Ont Os pet me —— 
123 6 +7 PF FAT 


Crbn : 
1#p FÔR 1=11To18 : N(1)=9 
IR FOR j-176$3 
Jp XTIL,5)=T-T:NT(1,3)21-19 :2T(25)= 8e 
2pf NEXT d': NEXTI 

Cue bout aulus chaives ruf pou, parallele 
à OXT ef eebadoundes de YT= 7 à NT=S 
L'evmen tte one Le malaise a apr : 
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LT 





| 5 TR rx à dtocleur 
| ee LÎT k ot aunnem Île, que 
o _ | CEE LT F eus appeler eu A 
n 4 / | GRILLE 4( 4-4 -f) 
> XT fur. on que 

21H PRINTDÉ OPEN GRILLE 1(4-4-5) 

229 PRINT DÉ"WRIÎTE GRictLe 1(4-4- 8) 

236 PRINT | Cneutns de laine) 

24m FOR 11-1701 { mamdre du pi pe law) 

26m  PPRINTS 

26g NEXT I 


27e FORT = ATo 18 
282 Fer J--17T0 59 
24g PRINT XT(T,S) 
2pg PRNT YT(Z,5) 
316 PRINT ZT(L,T) 
329 NEXTJ: VNEXT & | 
38% PRINT DÉ LÉLRCE CRILLE 1 (Ca4-4-6)' 
34 GE ND 
À Ai ou Man ele ce. Hichiur GRILLE À Mug rentes 
La PRÉCAUTION ote paie fin Len Eros a 


cute qéuiiique cte et opt Chont 4%) 


LZ 


Ven - en EU e différents 1044 - roognammes AR 
MANIPULATION D'OBJET. 


TRANSLATION 


17000 REM 


TRANSLATION OBJET 


17010 
17020 
17040 
17050 
17040 
17070 
1700 
17090 
17100 
197110 
17120 
17130 
17140 
17150 
17160 
19999 


HOME 

GOSUB 30000 

PRINT "DONNEZ VECTEUR TRANSLATION!': 
INPUT "DX="';DXx 

INPUT "DY='"';DY 

INPUT ‘"DZ="';:D7Zz 

FOR 1 dr FRA 

FOR J 1 TO NI) 

XT(I,J) XT (1:99) + DXx 

VTC I,J) YTEI,J) + DY 

ZF(I1;,J) ZT{I,J) + DZ 

NEXT J: NE XT I 
PRINT : PRINT ": 
INPUT "",;,0O# 
GOSUE 3030 
RETURN 


FPRENT 


y nu !! 


NOM OBJET TRANSLATE :": PRINT 


Pas de About partiouliae | 


Paasors À La : 





R 


“0000 


ROTA 


“0010 
20020 
sOCES 
0030 
20040 
20050 
20040 
20070 
“0050 
“07979 


OTATION 


RE M 





TION OBJET 


HOME 
GOSUB 30000 
FRINT 
PRINT 
PRINT 
FRINT 


"ROTATION AXE PARALLELE A:': 
A-L'AXE OX : ROULIS'": FRINT 
CE-L'AXE OY : TANGAGE'': PRINT 
FRINT "3-L'AXE OZ : LACET'': PRINT 
INPUT "VOTRE CHOIX '';C 

ON € GOSURB 25000,26000,€27000 

RETURN 


PRINT 


XT 


TT 


she 


21 
_ LACET 


de 







RouULIS 


Pan cv où aluna um opel quupli lle de mauvemut 
Ada L'axe OXT (an, vrdme , ele. 

Dan allbuns une nétotim autgux d'un axe utfegnque et 
déompaolle en une Ab de nifolimur aufgux ote cos ae 24 


Hpurcpans (qui æaffaent argpmut aux Cetoina) 


ROTATION AUTOUR 
D'UN AXE PARALLÈLE 
A L'AXE OX. 


TANGÇGAGE 


._ Raw 
(prAr24) 





“25000 KREM 
ROTATION AXE // OX 


25010 HOME 

25020 PRINT 'TRACE AXE DANS FLAN YOZ': PRINT 

25030 INPUT "YA=";YA: PRINT : INPUT "ZA=";ZA: PRINT 
25040 INPUT "ANGLE ,DEGRES: ";AR 

25050 REM AR ANGLE DE ROULIS 

25060 AR = AR # 3.141416 / 4#0O 

25070 CR = COS (AR):SR = SIN (AR) 

250%0 FOR I=1TOL: FOR J = 1 TO N(1I) . 
25090 X1 = XT(I,J) 

25100 Y1 = YT(L,;J)— VA k hou. gene ole VFNAAR 


25110 Zi = ZT(,J) — ZA: RE M 
25150 X£ 


xX1 \ 
25130 vV? Y4 # CR — Zi # SR + Rotahin 


25140 272 = Vi # SR + 21 # CR: REM 

25150 XT(I,J) = X£ Le ne cle 
25160 YT(I,JI = VE + YA CUux FA 

25170 ZT{I,J) = 2? + ZA: REM 


: * à 
251520 NEXT J: NEXT I Cor css als UEAA #4 


259799 RETURN 


y ll 
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ROTATION AUTOUR D'UN AXE 


PARALLE LE À ON. 


268000 


ROTATION AXE // OY 


“6010 
6920 
269030 
24040 


eo 


Raw (XA,B,ZA) 


RE M 





HOME 

PRINT TRACE AXE DANS PLAN XOZ': PRINT 

INPUT "XA=";XA: PRINT : INPUT “"ZA=";ZA: PRINT 
INFUT "ANGLE DEGRES ";A1 

Ai = Al # 3.1416 / 180 

REM Ai ANGLE DE TANGAGE 

CT = COS (A1):ST = SIN (A1) 

FOR I= 1 TO L: FOR J = 1 TO Nil): RE M 

X1 = XT(I,J) — XA 7 ÂÀQ Crmolsru-te, 
Yi = YT{I,J) | Hronragaren À 

Z1 = ZT(I,J) — ZA: REM) 

XE = 21 + ST + Xi «x CT He 

Ye = vi î | se 

Z2 = Zi # CT - X1 » ST: RE M 

XT(I,J) = XE + XA 

YT(I,J) = YE Retrur aux #pilüne Le 
ZT(I,J) = ZE + ZA: RE M 


NE XT J: NE XT I 
RETURN 


Corobtenmvess X7T,YT, ZT 


ROTATION AUTOUR D'UN AXE // À OZ. 


“000 


RE M 


ROTATION AXE 4 OZ 


2 72010 
27020 
27030 
7040 
= r050 
7060 
27070 
700 


27070 
77100 
27110 


27120 
27130 
27140 


271350 
27180 
27170 


2710 
27999 


HOME 

PRINT "TRACE AXE 
INPUT "'XA=";XA: PRINT 
INPUT "ANGLE ,DEGRES: 
AL = AE # 9.151686 / 1=0 


DANS FLAN XOY'"': PRINT 
: INPUT "YAaz=",;YA: PRINT 


AL 


ce 







REM Al ANGLE DE LACET 
CL = COS (AL):SL = SIN (AL) 
FOR I1=1TOL: FOR J= 1 TO N({l}: RE M | 
Xi = XT(I,J) — XA Hour eurent de | 
VA = YT(I,J) — YA #. 
Zi = ZT(l,J): REM Cros 08.4 à 
XT = XA # CL -— Yi # SL \ | / 
V2 = Xi # SL. + Yi # CL Rota A on De d 
Z2 = Zi: REM L 
+ 
XT(L, TJ) = XE + XA Rot DARLX PLA 
VTA,J)= Y2 + YA OP 
ZT(I;J) = ZE: REM KT, AT Do t X 
NE XT J: NEXT I acte 
RETURN 


(XA NA, g) 


ci 


SYMÉTRIE PAR 
RAPPORT A UN PLAN 


lé Une CA.A Loones mulhs be ur 





rèdre de Ds œ@ . 2 
AA Asus Re anne , PUMA : 


UX: peur LA Un 4Hénne 


1=:000 REM 


SY ME VRIGUE % PLAN 
4121001 HOME 
12005 FX = O:FY = CG:KH2Z = © 


1:1006 GOSUE 30060 
12007 PRINT : PRINT "'SYMETRIQUE FAR RAPFORT AU PLAN 


M: PRINT : PRINT ‘"i- 
Z=0 FLAN XOY'"': FRINT : PRINT "£- Y=O0 PLAN XO2": 
SRRIN EC SX 


FRINT 


© FLAN YOZ'': PRINT : INPUT "VOTRE CHOIX SLT 0 
1200 IF CC = 1 THEN FZ = 1 
12009 1FCT = Z THEN HY = 1 
12010 IFC = 3 THEN FX = 1 
1:011 FOR I= ii TOL: FOR J = 1 TO N(I) 
123020 IF FX = 1 THEN XT{I,J) = — XT(I,J) 
AHO2T IF FY = 1 THEN YT (lg) = — YTil,J) 
12024 1F FZ = 1 THEN ZT(I,J) = — ZT(I;,J) 
1:030 NEXT J: NEXT 1 
12035 PRINT 
12040 INPUT "NOM NOUVEL OBJET ";@©@$ 
1=:050 GOSURB 3030 
14409 IF C= 2 THEN FY = ii 
12999 RETURN 


es Qc el aan penyl 


6 


FUSIONNER OBJETS 


c'et ture pirate Wan Mmple à À an | Sümple peu AUX. ÀeA4 
mdicr. Mais alain ! los Hicham ob cu aNéraeiE 


ont Limit à 30 CHAINES. Souut ceux ob - le promnex 
a contrée de Ly chaire NW Le ærm de Ly chaines 

La farm où4a deux fichu me pauma 4'apoex que H 
Li+l, Lo . Bon 4 … 


21000 REM 


HN BEN HNHT 


»bhbhbhkhbhhhrhhhh 


FUSION OBJETS 



















214010 HOME 

21020 PRINT "RIN LA FUISION,TAPEZ LE MOT FIN'': FRINT 
21030 PRINT "PREMIER OBJET 4 FUSIONNER": PRINT 
21035 GOSUEB 30000 

21040 INPUT "NOM OBJET 4 FUJSIONNER:",C# 

21042 IF ©$ = "FIN'"'THEN =1500 

21050 PRINT D#'OPEN'"';oQ$ 

21060 PRINT DS'READ";,©S 


2106# REM 


OPERATION DE FUSION 


21085 REM LIL=NOMBRE LE CHAINES DU NOUIVET COBJET 


3F 


214070 INFUT LE R. 
2105850 FOR I=L+1 TOOL +LL 
21090 INFUT NitiI) 
14100 NEXT I ' 
110 FOR I=L+1TOL + LL DUMEA 
1270 FOR J= 1 TO Nil) 
430 INPUT XT{I,J)>: INPUT YT(I,J): INPUT ZT(Il;J) 


140 
150 
155 
1850 


NME XT J: NE XT I 
PRINT Dé$&S"'CLOSE 
Let +tL 
GOT 1040 


AE : 


500 
510 
9 20 
9 3 0 
99 





REM HRIN DE BRBUSION 
HOME 

PRINT : INPUT "NOM LE L'OBJET GLOBAL 
GOSUE 3030 

RE TURN 





10% 


TT TS La aile ca Eonele Haut 
bnbnies dis onu: SE Rs FIN 


den choiwes caudilrant tt 


ef à L'une aux 


eut de Loti etage BONNE LOT NT 


97 





HOMOTHE TiE 


al {{ [A mx de. letegoflo. HP ne AU 

HE fut d'abnai difinin un CENTRE D'HOMOTHETIE C 
qui anne run. Cidamntes XC, VC ZC. À Eat fout M 
XT-XC = X! 
NT- YC = Y1 
2T-2ZC=21 


(NT, Vire On FAUNE Léo un Lun. Vectiur CM 


On 4e devmaa emule & COEFFICIENT D'HOMOTHETIE HO. 
Et, cu viurx CM om qubltunn & ve mur 
— 9 X2A = KX1+x HG 
CPV 2 se V4 MG 
ZT = 214 #0 


nialire une SYMÉTRIE /. € Car opt où Cute C). 
L'éeutme ou ane prngnanmme 24 ane affaire a Ange 


22006 REM 


HOMOTHETIE 


010 HOME 

zLO20O GOSURB 30000 

2040 FRINT "'COCRDONNEES CENTRE HOMOTHETIE": PFRIN 
“E 


“050 INPUT "'XC="',xcC 
22060 INPUT "'YC=';wC 
22070 INFUT "ZC='"';2C 
22050 PRINT : INPUT "'CORFFICIENT HOMOTHMETIE ";,MO: FR 


-#090 FOR Il= 1 TOOL: FOR J= 1 TO N{(I1): REM 
X 1 


Y 1 
Z 1 


XTETI,J) — XC 
YT(Is9J) — VC 
ZTiI,J) — ZC-REM 


sh» 


# gl 


X2 
v2 
Z= 


X4 + MO 
W4 + HO 
£i1 + HO: FEM 


TE 


XT{(I,Jr = XE + XC 
YT I, Ji = VE + VC 
ZT(I1;:J) = ZE + ZC: REM 


NH HA MM HHH 
HN MP KB H 


tj F] 


ŸN ŒGUES pu Hero 
9OQ OCU OUC C00C 


Ù ka ks Es hhh 


NEXT J: NEXT I 
RETURN 


20 





AFFINiTE 


On peut éuuri Sa gen be fit Jen op à un ga , 
Qu ar np à Un AXE. Drama Lun ne enmyRa. eu lan 
Armani mA XT, NT 


DT Para ana An CanTeua 
\ un CERE. 
a os Crmiclenm-ats KT: YT. 
XT 


Nous allons réalite uvre affinité jar exemple nets L'oxe OXT 
Applos AF Le COEFFICIENT D'AFFINITÉ . 


Nova allo nounpla cs NT pan AFF 4 TT ef mms tan cliau a 
2 CERF - AFFIN : 


4 NY 


lun ÀFy1A. 
Û 
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OX Lima à L'aflnte par wypnt À um plan. Si Lasoun 


are affuit an pat à un axe 


23000 REM 


AFFINITE 


23010 HOME : 
293015 HX = O:RY = O:FZ = 0 





235020 CGOSUE 30000 

“293080 PRINT "i- X=0 PLAN YOZ'': PRINT 

23070 PRINT "E- Y=9 PLAN KXCZ'': FRINT 

LIQ0ROQ PRINT "=- Z72=0 PLAN XOY'': PRINT 

“3090 INPUT "VOTRE CHOIX ‘QC 

293100 IF C= 1 THEN FX = 1 

2910 IF LC = EE FHEN FŸY = 1 

293120 IF C = 3 THEN FE = 1 

“SlEs PRINT : INPUT "COEF AFFINITE ASF: FRINT 
293139 FOR I= 1 TOOL:  FOQO8 JF = 1 TO N{I): REM 
#S140 IF FX = 1 THEN XT({IL,9J) = AFF # XT(I;:J) 
293190 IFRY = 1 THEN YTél:J) = AFF # YTiL;,J) 
“S180 IF FZ= 1 THEN ZT(l;:J) = AFF # ZT(l,J): RE M 
293170 NEXT J: NE XT I 

:23799 RETURN 


On VrË dme qu'on paut dliprier de Cut un allnai( 
ragmaA que mana Argens an méme un ét que ferait 
ne SV En En efoun ant an athinite ; © aeraut 
Han lle À en fais Pre eepaviole, alla m aplale. 

!: # 


+ 
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Le malin gun de. départ prunra 8te cl ERILLE , ce mn. 
os. alla, que neud aura Hobrique tout à P 'aune. 





Or poumat envisage ele a oléfevumeu. comme act, en. 
nelle une. HOMOTOPIE . OK Las Sa gere Ae ee ll Jen celle 
defoumalion Aams es dires ax ele (OXT,0YT, 0 ZT). 
Supprrons que. cle aille Ant das Le han Z= 0 . Oh ve 
Rage la une SURÉPAISSEUR vaxalle sel L'endiit. Cottz 
efowatron. d'exexcnn. Aelom OZT ef ana maximale on ©. 
Puis 4e impatanes a, otderviaant, aux un ef A moture. 
que Een al eau ete l'axe. OZT. Dicenxà que. cle UNE RALHIEUA. 
Conan die par 2x en te x lune SURFACE DE GAUSS : 
2T 
IN 
<FIRSSS 
LÉ EL 
FES | 


COURBE EN CLOCHE . 
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So ? la dlanw Au pont à €'axe DZT 
P=VXTTENTT 
On dfoduna une oléfrmatin d'ampltioe vatial le . 


} 


A(XT,Yz)= 4 exp [— 2e) 


2e. Pr Vue. CA À Are L'ampakide max | Male 
[ aelon € axe. G2T). 


Pau une mame Vvafoux de À, PALA AURA : 


Re fromamme c- apr cmacte cotte déformation : 


“4900 REM 


HOMOTOPIE 


24010 FX = O:FY = O:F2Z = © 

24020 GOSUE 36000 

£240SE PFRINT : INPUT "AMPLITUDE DEFORMATION "‘;4: FRIN 
T 

24054 INPUT "LARGEUR LE FORMATION ‘;:E: FRINT 

24080 PFRINT "1i-SELON OX': PRINT 

24070 PFRINT "E-SELON OY'': PRINT 

24050 PRINT "3-SELON OZ": PRINT 

“4070 INPUT "VOTRE CHOIX ";C: FRINT 

24097 IF C= 1 THEN FX = 1 

24093 IF C=E= 

24094 IFC=3 THEN FZ = îi 

24100 FOR I= 1 "TOOL: FOR J= 1 TO N{I): FREM 


24110 X1 = XT(I,J):W1 = YT(I,»J):21 = ZT(I,J) 
EA414O RE = (FX + FYI #8 21 # 21 + (FX + F2) # Y1 # Yi+ (HZ +FY 
>) # XL # X 
À 
4150 H= A+ EXP —- (RE / CE + BE # B)))): REM 


24180 XT(I,9J)2 = XT(I,J) + FX # H 
“41/70 YTIs Jo = YTI, D +FY +H 
24150 ZT(Il:J) = ZT{I,J) + FZ # H 
242 NEXT J: NE XT I 

24999 RETURN 


Le 


On pauwait , de même , Cuéer des champ de dofermalions 
NAN , ana L'espace. Pan exemple ele Taratona. dre api gs 
uvre Lan melar Luxe OZT. TM nmaitl L'amyhitz le. 
qmrarnimafe de celle Trinaim_ et B 4a argus caxelarulane 
TH auffireit ole moeli des Le cr données XT(Z,T) NT(T,S ) 
en oprant une netallon out L'amplitnide dait en 
gécreissant, our fur ef à mature que Æ€'on. A éfrapnerart 
de {'axe OZT , an exemple Aelon ln Ale 


T(è =TM exp -(P}2 82) 


ane P= VXTEENTE 
Le rogramme nt fra a ffietk a Ste: us — 
Auf oi 4e Herr de ce qui à 8 oléja ne 


FICHIERS BLOCS 


Poux Lalique den cts, À aufpl A' ul, Le 
out à presents ei ef ete Éuconrer 24 elrmaen/ 
dont £ 

Mau Li fumer à 44 Éomites . Du va que Le programe 
v'etauit 4a4 ge pat manipuler dla gl comparés 
de glus de 300 “4ymeuts" 

Rur Faune ? 
CA cg 4 À datnés à SR ot ro, 
que vou applorme PANERAPHE DESSIN ef qu 
-FAaurra. , Lx aus, } PAIX que 300 4gmeutx À LA Fois. 





GS 


En at rime La Alutten : PANGRAPHE DESSIN 
Apava gear. ous annewtles d'obgetls , aug vremes cu 
as das Liclains qu'on eppelra BLOCS D'OBJE Tr 
FICHIERS BLOC. 

ELS$ (1) ævot Los Slômar de ce fier 





Dhemat Lt vec bios liens … L 


1000 





FE M 


CRE ATION D'UN FICHIER BLOC 





ee L'opreralrnr MArA4e : 


27000 REM 
LECTURE FICHIER ELOC 


LH0140 HOME 

2H0P80 INFUT "NOMBRE D'OBJETS".E 
“030 FOR I= 1 TO EH 

“1040 FEINT 'OERJET NUMERO ",;I 
2050 INPUT EL#$(lI): FRINT 

“m0 éO NE XxXT I 

25070 INPUT "NOM DE CE BLOC ‘';5BL#: PRINT 
200 PRINT D$'OPE N'';EBL# 

SOS O0 PFRINT DS#S'WARITE'';,EL+% 

2100 PRINT E 

2110 RORI=1TOE 

£Si120 FRINT  EL+(I? 

£si130 NEXT I 

2140 PRINT L#'CLOSE'' ELLE 

ee oS RETIRN 


29005 HOME : INPUT "NOM DU BLOC ";BlL#: PRINT 

9010 D$ = CHRS# (13) + CHRS#S (4) 

F9020 PRINT D#S"'OPEN'';ELS# 

25030 FRINT LDLF'RE AD; ELS 

29040 INPUT E 

27050 ROR l= 1 'TOE 

F9060 INPUT EL #(I) 

eSOES NEXT I 

29070 PRINT DF'CLOSH'"';:BL# 

26OO FOR I= 1 TOR: PRINT EL#il): NEXT: FOR TT Li To. 


OG0O: NEXT TT 


29999 


RETURN 
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Nous auvu u , fra Horse Coran Luxceirotnen. 
uvre. lle , qua ana appeler CRIE SL Ev Blue 
Aea AA pos Agnaete rar appt à Lun plan , on 





ApaUuna alles BLOC GRILLE (S/S/ $) frasque AA 
Covke a pau 2e à € rique - PS Qui Aer. 
Cats ALA qua 2A Emme 3 New 

GRILLE 7 

GRILLE 2 

GRILLE ? 

GRILLE 4 


OK vla que pot (,D,%) 
M Epabunt ras à CÂ emseun Le 
Ce qui pet au PASSER AU 
TRAVERS" de ce ce ulle en tuant 
Fame OZ. 


La dure ON Lo manual À cle paureut— 
ANERrerga LT br 2ocplnol. 
SD 


G@ A Rare na fret quésentèment que de Chen) 
LauA un romamme da olodms | 
Mais la æokrm PANCRAPHE ORJET 24+ 

lip Hi Anar LE que. WA gwA MN SAUNA TA a AR — 
He Lace daunr La mémene de C'Apple Ù, tant 
Na #8K. 

la Aoblion Ve canin à Ybacwx olans PANER APHE 
OBJET quelques | dos plans Lee aux IMAEES au 
DESSIN, qu applet outonakquenment PHWE RAPHE 
DESSIN, egalaureÂ re feut Au Lx ol 


Les ophua Lion à PANGRAPHE DESSIN nr Fan 
notes. VE dubfia qua cr ligue nnwmaut à uvre 
régence - Wronaferk. 


Romaque : paut - ge Conaenger Les Rickrins en 
Jet aim d'un Auognamme à €'aute a bus, & 
PCR À" ble Las fuoaramam - maebtuie 
rare. CHAN. 
ANA qu La MASTER , Vous prouve A Ar BA 
ouate ana ab : 


406010 FRINT LDLF'BLOALDCHAIN,ASEC" GE 
40020 CALL SEO"PANGRAPHE DESSIN" 


LR rte Van. AuA4 propane de querfonaremaen#, ABAA EX 


30000 REM 


L'OBJET EST-IL EN MEMOIRE 


30010 PRINT : INPUT "L'OBJET EST-IL EN MEMOIRE 7% ';R#: 
FRIN 
30020 IF LEFTS (R#,15 = "©" THEN 30999 


30030 INPUT "NOM DE L'OBJET: ";,0$: PFRINT 
30040 GOSURB 40:00 
30999 RETURN 


ON Carpet mautmant <a uefeute de FLAES Hans 
EU gx Cavwwmtmce par RUN PANGRAPHE OBJET 47/72/84 
peu Le. Flan as pouf XTNT,ZT. log FDA 
af ani quel ue A2. 
Où prune afua Trunres otanrs PANGRAPHE OBJET. 
A 0 cloeuclie Lo Ramritet, Le frogramune ae 
PANGRAPHE DESSIN 572/84 are Len Munes frames 
Liquer. Le Frog FD Saut Afféont an par, où enferx 
L'plon € auyaul DEIA SE fine, Ca À 6 Larlera 
NT ee ot de Das. 
Avat de vuaiuune PANERAPHE DESSIN ef ce aus 
ue rep anne PANCRAPHE ORIT T. 
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PANGR APHE OBJET 


O IF FD = 1 THENS 

1L-=0:REM PANGRAPHE OBJET 7/2/#4 

= DIM XT(30,9),Y T(30,9),2ZT(30,9),X(30,9),Y(30,9),N({(3O):FD = 1 
3 LE = CHRS {12) + CHRS$ (4) 

> TEXT : HOME 

$& IF CC“ *: O©O THEN 310 

10 HOME 

s0 KREM 


PROGRAMME MENLI 


30 VTAR 15: HTARE 15 
40 PRINT "'VOULEZ-VOUS:" 
90 FORTE = 1 TO SO: NEXT 
60 HOME 
© PRINT 
0 VTAR 3: HTAE £Sé: PRINT "'FANGRAPHE OBJET" 
90 VTAR 1 
100 FRINT "i-CREER UN COBRJET'" 
110 FRINT "2-STOCKER UN OBJET" 
1:O PRINT "3-CHARGER UN OBJET" 
130 PRINT "4-COMPLETER UN OBJET" 
140 PRINT "S-MODIFIER UN OBJET" 
150 PRINT "é—-(REPRESENTER UN OBJET)" 
160 PRINT "7-{(STOCKER UNE IMAGE)! 
120 PRINT "£&-(CHARGER UNE IMAGE)" 
1:00 PRINT "9-MANIFULER UN OBJET" 
170 PRINT "10-DLDE FINIR UN BLOC D'OBJETS" 
“00 PRINT "i11-CONSULTER UN FICHIER BLOC" 
210 PRINT ‘'12-" 
-*O PRINT ‘'13-" 
230 PRINT "'14-" 
240 PRINT '15Ss-" 
220 PRINT ‘'i4—-" 
260 PRINT "17-AFFICHER LE CATALOGUE" 
2/70 PRINT "'15-SORTIR DU PROGRAMME" 
=i0 INPUT "'YOTRE CHOIX ",;c 
270 IF C= 17 THEN PRINT D#'"OCATALOG"': GET A$: GET A$# 
300 IF Css 1" THEN ENDL 
310 ON OC GCOSUE 2000:3000,4000,2010,5000,40000,40000,4000. 
Os, 17000, HO000,ES 
QOÙ0 
ST CGOTO 10 


1500 


RE M 


CRhRE ATION ARC DE CERCLE 


1010 HOME :FX = O-FY = O:FZ = © 

1015 VTARB 15: HTARE = 

1020 HOME 

1030 PRINT "COORDONNEES CENTRE DU CERCLE": PRINT 
1040 INPUT "'XC=":XxX0C 

1050 INPUT "YC='"iyYc 

1080 INPUT "ZC=";:2C: PRINT 

10/0 FRINT "CERCLE L'AXE FARALLELE A:": PRINT 

100 PRINT "1-OX 2-OY 3-O7': PRINT 

1090 INPUT "VOTRE CHOIX ‘';:C: PRINT 

1095 INPUT "RAYON DU CERCLE ‘';R 

1100 1FC=1 THEN FX = 1 

1110 IF C= 2 THEN FY = 1 

1120 IF C= 3 THEN F2Z = 1 

1130 PRINT "SENS DE FARCOURS TRIGO HABITUEL": PRINT. 
1140 INPUT "'DLDONNEZ THETA 1,DEGRES:";TA4 

1150 INPUT "DONNEZ THATA S,DEGRES:";T£: PRINT 

1160 T1 = T1 # 3.1416 / 120: REM CONVERSION DEGRES/RA 
DIANS 

11/0 TE = TE # 3.1416 / 150: REM CONVERSION DEGRES/RA 
DIANS 

1150 DT = (TE - T1) / = 

1170L=L+1: REM NOUVELLE CHAINE 

1200 NL) = 9: REM 9 POINTS SUR LA CHAINE 

1210 FOR K =0TOZ:REM CREATION ARC DE CERCLE 

1220 CT = COS (T1 + DT # KHI:ST = SIN (T1 + DT + K) 

1230 REM LIGNES TRIGO DE THETA 

123S J=K +1 


Ce — 


sm 15:40 XT(L,J) 
1250 YT{L,J) 
1260 ZT(L,J) 


1270 
1275 


1250 XT{L;,J) 
1270 YTK{L;,J) 
1300 ZT{(L;,J) 


1400 
1410 
1420 
197979 
=000 


CREE 


2005 
2010 
2020 
“030 
2040 
2050 
2060 
“OQ70 
= 100 
= 110 
277 
3060 


= XC + (FY + F2) #4 CT +R 
= VC +CFX #4 CT +F2Z # STI) # KR 
= 2ZC+( FX +FY)I EST +R 
NEXT K 
FOR J 


L' To 

ÇCINT (1000 # XT{L,J9)7 / 1000 
(INT (1000 &# YT(L,J))) / 1000 
(INT 61000 # ZT(L,,792)9 / 1000 
PRINT XT(IL,J),YT{L,J),2ZT(L;:;J) 

NE XT J 

GET A4$ 

RETURN 

RE M 


R UN OBJET 


HOME :1I = © 

MOME :: FRINT "VOULEZ-VOUS ::": FRINT 
PRINT "1-CREER DES CHAINES" 

PRINT "E-POINTILLER DES SECGMENTS" 

PRINT "3-CREER UN CERCLE" 

PRINT "4-CHAINER LES CERCLE S" 

PRINT "S-CHAINER DES COUPLES" 

FRINT "S-CREERR UN ARC DE CERCLE": PRINT 
INPUT "'YUOTRE CHOIX ‘;0 

ON  GOSUE 10000,11000,12000,13000,14000,1000 
RETURN 

RE M 


STOCKER UN OBJET 


3010 INPUT "NOM DE L'OBJET’ ;0$ 
3020 D$ = CHRS (13) + CHRS (4) 
3030 PRINT D$f'OPEN',0O$# 

3040 PRINT D#"WRITE’' ,O# 

3050 FRINT L 

3060 FOR I=1TOL 

3070 PFRINT Nil) 

3050 NEXT I 

3090 FOR I=1TOL 

3100 FOR J = 1 TO M{I) 

31410 PRINT XT{1,J9): PRINT YT(I,;J): PRINT ZT(I,1J) 
31:20 NEXT J: NEXT I 

3130 PRINT D$'CLOSE''.©O# 

39799 RETUEN 

4000 REM 


CHARGEMENT OBJET 


4010 
AO7O 
4030 
4040 
4050 
4060 
4070 
AO: O 
4090 
4100 
4110 
4120 
4130 
4999 
5000 
5999 


INPUT "NOM DE L'OBJET ',©Q+ 
DE = CHRS (13) + CHR# (4) 
PRINT Dé#'OPEN'"':O0# 
PRINT LE'RE A4AD'';,0#F 
INPUT L 
FOR I=1TOL 
INPUT Nil) 
NE XT I 
= 1TOL 
FOR J = 1 TO N(I) 
INPUT EPÉL;J)e INPUT VTC): INPUT ZT{l;:J) 
NE XT J: NE XT I 
PRINT D$"'CLOSE";,04# 
RETURN 
GOSUEB 2000 


RETURN 


10000 KE M 


CREATION DE CHAINES 


10040 
10050 
10040 
10070 
10050 
19690 
19100 
10110 
10170 
10130 
10140 
190150 
19180 
10170 
10999 


LæL+1 

Foto) "NOMBRE DE POINTSY ";:N(L5 
J = J+i 

PRINT "POINT NO":J 

INPUT 'XT=";XT(L,T) 

INPUT "YTet;YTéL,J) 

INPUT "ZT=";2T(L,J) 


IF J = N(L) THEN 10140 

GOTC 10070 

INPUT "UNE ERREURT"';R%# 

IF LEFTS (R#,1) = "Or" THEN 10950 

Re AUTRE CHAINE ":R# 
$ (R$,1) = "Or" 

Rean , OO" THEN 10040 
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116000 RENM 


POINTILIER UN SEGMENT 


11010 L = LL +1:N{tL) = 5 

11020 PRINT "DEBUT DU SEGMENT " 
114030 INPUT ‘'X=";XD 

11040 INPUT “"Y=", VD 

11050 INPUT ‘“Z=",:727D 

11060 PRINT "FIN DU SEGMENT" 

11070 INPUT "X="U;: XF 

11080 INPUT "Va", VE 

11090 INPUT ‘Ze: 25 

111090 FOR W=1iTOS 

111410 XT(L,W) = XD + (XF — XI) # (KW — 1) / 4 
11120 YTéL;W) = VD + (YF — VD) # (KW — 1) y 4 
11130 ZT(L;,wW) = ZD + (ZF — ZD}) # (W — 1) / 4 
11140 NEXT w 

11999 RETURN 

12000 REM 

CREATION D'UN CERCLE 

12010 HOME 

12015 PRINT "CENTRE DU CERCLE:": PRINT 
12020 PRINT : INPUT "xXC=";xce 

12030 INPUT "YC=",veC 

12040 INPUT "ZC=";2C 

1=20SG PRINT : INPUT "AZIMUT AXE ":AX 
12060 AX = AX # 3.1416 / 1z0 

12085 PRINT: INPUT ANGLE DE SITE AXE:":SI 
12068 SI = SI # 3.141416 / 1x0 

12070 PRINT : INPUT "RAYON ":}R 

12050 CA = COS (AX):SA = SIN (AX) 

12O8S5 CS = COS (SI1):SS = SIN {SI) 

12090 L=1L+1 

121400 NL) = 9 

12110 J = 0O 

12120 J = J+1:W= (J — 1) # .7ES / © 

12130 XO = O:VO = — R # COS (W):ZO = FR # SIN (y 
121382 X1 = — 20 + SS + XO +« CS 

12135 Y1 = YO 

121534 21 = 20 r CS + XO +» «ss 

1214S XT(L,J) = X1 # CA — V1 # SA + XC 
12150 YTIL,J) = X1 # SA + V1 # CA + YC 
12160 ZT(L,J) = 214 + 2zC 

1*#170 IF J=9 THEN 17190 

12120 GOTO 121270 

1:190 = L + 1 

12200 N(L) = 9 

122402 0 

12220 J = JT +1:W= (JT — 1) +4 .7ES / 2 

1230 X0 = O0: VO = —-R# COS (W):ZO0 = — ER # SIN «W) 
1ELSE X1 = — ZO #4 SS + XO # CS 

12233 Yi = YO 

12234 24 = ZO # CS + XO + ss 

12240 XT(L:J) = X1 # CA — V1 & SA + XC 
12280 YT(L,J) = Xi « SA + Yi # CA + YC 
12260 ZT{L;:J) = Z1 + ZC 

122F0 IF J=9 THEN 1295959 

17250 GOTO 122270 

12599 RETURN 

13009 REM 


CHAINAGE DE CERCLES 


13019 HOME : PRINT "CERCLES COAXIAUTX # / OX" 
13012 PRINT : PRINT "AXE DES CERCLES'": PRINT 
13019 INPUT "'YC="',;vcC 

13014 INPUT "ZC=',;2cC 

13020 K = 0 

13050 K = M + 1: PRINT : PRINT "CERCLE NO ";:K 
13040 L = LL + 1:N{L) = 9 

12050 INPUT "ABCISSE ",;xC 

13060 INPUT "RAYON ‘:;#hR 

13070 FOR J=1i TO S 

13050 Wz= J + .745 

13090 XT(L;,J) = XC 

193100 YTIL,JI) = VC — R # COS GAND:ZT(L,J) = 2C + R # SIN (WW) 
13110 NEXT J 

13120 INPUT "UN AUTRET":R#% 


13190 IF R& = "OUI" THEN 13030 

13140 FOR I=1 TO": 

13150 = L + 1-N(L) = K 

13160 FOR J=1TORK 

13120 NT: Ur = TL HN LE ir 

1 LES VFCI UN = YTIL = KR = TL e. Tir) 

LATDONZÉOALATÉ = 2 TAL SUN TE TE y, 
13700 NEXT J O 
143210 NEXT I 

13993 RETURN 


14000 


RE M 


CHAINER COUPLES 


14010 
14020 
14030 
14050 
140 70 
14080 
14090 
14100 
14105 
14110 
14120 
14130 
14140 
14230 
14240 
14240 
14270 
142:0 
14790 
14300 
14310 
143:0 
14331 
14337% 
14333 
14334 
14340 
14350 
14360 
14370 
1430 
14400 
14999 
17000 


K 
K=K+1:L = 1 + 1:N(L) = 5 


PRINT "'OOUPLES AXES SUR OX" 
= O:L = © 


PRINT "COUPLE NUMERO ';K 
PRINT "'DLDONNEZS PTS :" 
FOR J= 1TOS 


PRINT "'ÉOINT NUMERO ",7J 
INPUT "X='";:XTEL,J) 

INPUT "Y="; YT(L,J) 

INPUT ‘"Z='";ZT(L,J) 

NE XT J 

INPUT "UNE ERREURT':RS% 
IF R$& = "OUI!" THEN 14050 
INPUT "UN AUTRE COUPLET';,Rœ% 
IF R#& = "OUIT' THEN 14030 
FOR 1= 1TOSs 

L = LL + 1:N(L) = K 

FOR J = 1 TO K 

XTÉL:J) = XT(JT,I) 

YT(L,J> = YT{J,1) 


NEXT J: NEXTI 

FOR I 1 TOK: FOR J=- 1 TOSs 
PRINT XT(LI:JDIYT(I1,J),ZT(I,J) 
NEXT J: NEXT I 


GET 44% 

GOSUB 30900 

FOR I=1TORK+S 
FOR J = 1 TO NI) 
VTT, = — YT(I,J) 


NEXT J: NEXT I 
GOSUE 3000 
RETURN 

RE M u 


MANIPULER UN OBJET 


17010 
17020 
17030 
PRINT 
17040 
17050 
Tv 
17060 
17070 
1700 
17090 
17100 
17110 
00 
17999 
1000 


SYMETRIQGQLE % 


1:001 


1=:00S FX = O-FY = O:F2Z 


1:00 
1=:007 


HOME 

PRINT “VOULEZ-VOUS:"': PRINT 

PRINT "i-OPERER UNE TRANSLATION DE L'OBJET": 
PRINT "2-COPFERER UNE ROTATION'"': FRINT 

PRINT "3-CREER LE SYMETRIQUE % UN PLAN': PRIN 
PRINT "4-FUSIONNER DEUX OBJETS": PRINT 

PRINT "S-HOMOTHETIE": PRINT 

PRINT "S—-AFFINITE": PRINT 

PRINT "7-HOMOTOPIE": PRINT 

INPUT "VOTRE CHOIX '';C 


ON € GOSUE 17000,20000,1:000,7 1996G,:22000,23000,740 


RETURN 
RE M 


PLAN 


HOME 


= 


O 
GOSUB 30000 


PRINT : PRINT "'SYMETRIQUE PAR RAPPFORT AU PLAN 


9°: PRINT : PRINT "i— 


Z2#Q PLAN XOY': FRINT : PRINT "?- Y=0O PLAN XOZ': FRINT 
: PRINT "3- X=x 
O FLAN YVOZ': PRINT : INPUT "VOTRE CHOIX ",e 


1:00: 
1=:009 
1=:0410 
141011 
1=:02%:0 
1027 
1=:024 
1=:030 
1:035 
1=:040 
1=5050 
12090 
15-999 


IF C= 1 THEN FZ= 1 

IFC=E THEN FY = 1 

IFC=8 THEN FX = 1 

FOR I=1 TOL: FOR J = 1 TO Ntl) 

IFHX= 1 THEN XT(I,J)= — XT(I, 2) 

IFEY = 1 THEN YT( I, J))= — YT(I,J) 
IF KFZ= 1 THEN ZT(I,J) = — ZTU(I,J) 


NE XT J: NEXT I 

FRINT 

INPUT "NOM NOUVEL OBJET ",0# 
GOSUEB 53030 

IF C= ZE THEN HY = 1 

RETURN 
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17000 RMREM 


TRANSLATION OBJET 


19010 HOME 

17020 GOSURS 30000 

15040 PRINT "DONNEZ VECTEUR TRANSLATION’: PRINT 
49050 INPUT ‘'DXx="'';1DDXx 

17060 INPUT ‘'DY=", LY 

49070 INPUT ''DzZ='"' DZ 

185050 FOR I=1 TO 

19090 FOR J= 1 TO NI) 

17100 XT(I.J) = XT(I,J) + DX 

19110 YT(I:JI = YT(LeJ) + LDY 

17120 ZT(I,JI)= ZT{(Il,;J) + DZ 

15130 NEXT J: NE XT I 

179140 PRINT : PRINT "NOM OBJET TRANSLATE:": PRINT 
17150 INPUT ‘':0sS 

171850 CGOSUEB 3030 

14199077? RETURN 

LO000 FEM 

ROTATION CBJET 

0010 HOME 

LO0OZ0 GOSURB 30000 

COOZS FRINT 

0020 FRINT "ROTATION AXE PARALLELE Ai": FRINT 
20040 PRINT “"i-L'AXE OX : ROULIS": PRINT 

2060050 FRINT "E-L'AXE Ov : TANGAGE’": FRINT 

200640 PRINT "3-L'AXE OZ: LACET'": PRINT 

20070 INPUT "VOTRE CHOIX ";:C 

20040 ON CO HTOSLIEB ?5000,26000,2/000 

2096 RETURN 

21000 MREM 

FUSION ©COBJETS 

21010 HOME 

21070 PRINT "FIN DE FUSION,TAPEZ LE MOT FIN': FRINT 
21030 PRINT "PREMIER OBJET 4 FUSIONNER": PRINT 
T1035 CGOSUR 30006 

214040 INPUT "NOM OBJET A HUISIONNER:";,05#S 

AO4T IF O6 = "FIN" THEN 21500 

21050 PFRINT D#''OPEN'"',O0# 

1040 PRINT DS'RE AD" CO 

1082 ME M 





CFERATION DE FUSION 


21085 
“10/0 
= 1070 
100 
1100 
1110 
1120 
1136 
11406 
1150 
1155 
11650 
1500 
i— 10 
150 
1 
1 


30 


, 


DHEA NT 


£ 
Ÿ 
Ÿ 


REM LL=NOMBRE DE CHAINES 


INPUT LE 
SL TO LL FE 
INPUT Nil) 
NE XT I 


FOR I 


FOR I 


EOR J 
INPUT XT(L;,1J): 


= L+1iTOL+LT 
= 14 To NI} 


INPUT YTéI;:J): 


NE XT J: NE XT I 
FRINT DS'CLOSE";,0# 


LL = L + 


GOT 


LI 
= 10406 


REM FIN DE FUSION 


HOME 


PRINT 
GOSUEB 3030 


INPUT ZT(I;4J) 


DU NOUVEL OBJET 


: INPUT "NOM DE L'OBJET GLOBAL ";Oo# 


RETURN 


RE M 


HOME 

GOSUE 30000 

PRINT "COORDONNEES CENTRE HOMOTHETIE": FRIN 
INPUT ''XC=";XxXC 

INPUT "Yes"; Ce 

INPUT "ZC="; 20 

PRINT : INPUT "CORFFICIENT HOMOTHETIE "HO: FR 
FOR I=1TOL:FOR J= 1 TO Nil: REM 

Xi = XT(L,J)i — XC 

Vi = YTA,J) —- YC 

Zi = ZT(I,9J) — ZC: REM me 
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xX2 
v2 
Z£ 


Ki + HO 
#+ HG 
#4 HO: REM 


XTKI 
YT(I;,J) 
ZT(I,J) 


Poe. CS 
Tam Ve 
ZE + ZC: REM 


b'æ 
41 
J) = 


NEXT J: NEXT I 
RETURN 
FE M 


AFFINITE 


23010 
23015 
3SOZO 


23140 
23150 
23160 


23170 
“3999 
4090 


HOME 
FX = O:FRY 0:F2Z 
GOSUEB 30000 


O 


PRINT "1i- x*=CG PLAN YOZ': PRINT 

PRINT "£- Y=0 FLAN XOZ'': PRINT 

FRINT “3—- Z=0 FLAN XOV'': PRINT 

INPUT "VOTRE CHOIX ‘,cC 

IF C= 1 THEN FX = 1 

IF C= 2 THEN FY = 1 

IF TC = 3 THEN FZ = : 

PRINT : INPUT "'COEF AFFINITE"';,AF: PRINT 
FOR 1=1 TOOL: FOR J= 1 TO N{L):REM 

IF FX= 1 THEN XT(I,J) = AF += XT(I,J) 

IF KY = 1 THEN YT(I,J) = AFF # YWT{I,J) 

IF FZ= 1 THEN ZT(I,J) = AFF # ZTil,J): REM 
NEXT J: NEXT I 

RETURN 

RE M 


HOMOTOFIE 


24010 
240%0 
24052 
1 

T4054 
24060 
4070 
240%0 
24090 
24092 
24093 
24094 
24100 


241410 
24140 
) # X1 
1 
-4i150 


24160 
24170 
24120 
24220 
24999 
25000 


FX = QO:FY = C:HZ = 0 

GOSUR 30000 

PRINT INPUT "AMPELITUDE LE FORMATION "ii: FRIN 
INPUT "LARGEUR DE FORMATION ":B: PRINT 
PRINT "1-SELON OX": PRIN'T 

PRINT "2-SELON OY'': FRINT 

PRINT "3-SELON ©OZ': PRINT 

INPUT "VOTRE CHOIX ‘;C: PRINT 

IF = 1 THEN FX = 1 

IFC = © THEN FY = 1 

IF CC = 3 THEN F2Z = 1 

FOR I=1TOL: FOR J= 1 TO Nil: REM 

X1 = XT(I,J):Y1 = YT(I,J):2Z1 = ZT{I,J) 

RE = (FX + FY) # 21 &# Zi + (FX + F2) # YA à Yi + (FT + FY 
# x 

H = A #4 (EXP ( — RE / CD # B + B)))h): REM 
XT(I,J) = XT(I,Ji + FX # H 

VYTI,T = YVT(I,J) + FY + H 

ZT(I,J) = ZT(,J) + FZ + H 

NEXT J: NE XT I 

RETURN 

RE M 


ROTATION AXE // OX 


25010 
250=:0 
25030 
=o040 
25050 
25060 
25070 
es S0:0 
2509790 
9100 
25110 


HOME 

PRINT "TRACE AXE DANS PLAN VOZ': PRINT 
INPUT "YA="; YA: PRINT : INPUT "ZA="; ZA: PRINT 
INPUT "ANGLE,DEGRES:"';,AR 

REM AR ANGLE DE ROULIS 

AR = AR + 3,1416 / 120 

CR = COS (AR):-SR = SIN (AR) 

FOR l= 1 TOOL: FOR J= 1 TO Ni1) 

X1 = XT(I,.F) 

Yi = YTEI,J) - vA 

21 = ZT{I,J) — ZA: RE M 

Xe = X1 

VE = Y1#CR —- 21 +SR 

22 = Y1 + SR + 21 # CR: REM 


XT( Is) = XX? 

YTA;gJ} = Yr + YA 
2'F(lrdJ) = 25 + ZA: REM 
NEXT J: NEXT I 
RETURN 
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26000 


RE M 


ROTATION AXE // OY 


ax D. O: D. Û: œ 


HOME 

PRINT "TRACE AXE LANS FLAN XOZ'': PRINT 
INPUT "'XA="; XA: PRINT : INPUT "ZA='';2ZzA: PRINT 
INPUT MANGLE DEGRES ";A1i 
Ai = Ali # 3.141868 / 1=0 

RE M Ai ANGLE DE TANCGAGE 
CT = COS (AL):ST + SIN (A1) 

FOR 1I1=1 TOOL: FOR J= 1 TO N{(I): REM 
Xi = XT(I,J) — XA 
was YT(I,J) 

Zi = ZT(I1,;,J) — ZA: REM 

= Li1r-ST + X1+cCcTr 
WZ = Y1 

LæeZir CT - X41 # ST: REM 
KTÉLsJ) = XXE + XA 
WTI,J) = YE= 

ZLTÉIs,J) = ZE + ZA: REM 

NEXT J: NEXT I 

RETUERN 

RE H 


ROTATION AXE // OZ 


“010 
27020 
27030 
27040 
2050 
=2r060 
eV Oro 
27050 


27090 


= /1=0 
SCT RR 
“000 


HOME 

PRINT "TRACE AXE DANS FLAN XOY'': 
INPUT "XA=";,XA: PRINT 
INPUT "ANGLE, ,DEGRES: 
AL = AL + 3.1516 / 150 


NÉ de 


REM AL ANGLE DE LACET 
CL = COS (AL):SL = SIN (AL) 
FOR I=1TOL: FOR J=1 TO N{l): REM 
X1 = XT(I,J) — XA 

Y1i= YTI, JD - YA 

Zi = ZT{(I,J): REM 

XE = X1 # CL —- Yi # SL 

WE = X1 # SL + Y1 # CL 

ZE = Zi: REM 

XT(L,J) = XE2 + XA 

WT, DD = VYE + YA 

ZTél,J) = Z£: REM 

NE XT J: NE XT I 

RETURN 

RE M 


CREATION D'UN FICHIER BLOC 


ARS 
© © © 


(6! 
GE 
9 


LL 
W 


= 04G 
4050 
24060 


Gin: 


Co où 
[ee 
to 
Ô 


JHHHEN HT 


ai 


2140 


HOME 

INPUT "NOMBRE LDL'OBJETS ‘";E 
FOR 1=1 TOQ0E 

PRINT "OBJET NUMERG ";I 
INPUT EL#(I): PRINT 

NE XT I 


INPUT "NOM DE CE ELOC ";BL$&: PRINT 
PRINT D'"OPEN'"';EL# 

PRINT D£&"'WRITE"':EL# 

PRINT E 

FOR Ir 1 TO E 

PRINT EL#(1) 

NE XT 1 

PRINT DS'CLOSE" ;,EL# 

RETURN 

FRE M 


LECTURE FICHIER BLOC 


27005 
27010 
27020 
=:7030 
27040 
27050 
27060 
29085 
27070 
27050 


HOME : INPUT "NOM DU BLOC ";BLS#&S: PRINT 
DE = CHRS (13) + CHARS (4) 

PRINT D#'"OPEN'"';BL# 

PRINT D$'"'RE AD’ ;EL# 

INPUT E 

FOR lI= 1 TOR 

INPUT EL#&(I) 

NE XT I 

PRINT D#$"CLOSE";EL# 

FOR I=1 TOE: PRINT EL&#(I): NEXT :FOR TT 


000: NEXT TT 


27799 


RETURN 


PRINT 
: INPUT "YA=";YA: PRINT 


= 1 TO 


F4 


es 
— 


30000 REM 


L'OBJET EST-IL EN MEMOIRE” 


30010 PRINT : INFUT "L'OBJET EST-IL EN MEMOIRE 7? ";fR#: 
PRINT 
FOO0E20 IF LEFTS (R$,1) = "O" THEN 30995 


30030 INPUT "NOM DE L'OBJET: "';O0#: PRINT 
30040 GOSUE 4020 

30979997 RETURN 

40000 REM 


CHAIN FANGRAPHE DESSIN 


40010 PRINT D#'ELOADCHAIN,ASTO" 
40020 CALL S2O'"'PANGRAPHE DESSIN" 


000 REM 


MODIFIER UN OBJET 


010 HOME 

5020 GOSUB 30000 

5030 PRINT : PRINT "OBJET DE ";L;" CHAINES": FRINT 
2040 INPUT "DONNEZ L'’'INDICE DE CHAINE ‘";I 


S050 INPUT "DONNEZ INDICE POINT SEUR LA CHAINE ";J 
3060 PRINT 


5070 INPUT "XT(I;,J)="; XT(1,J): FRINT 
DOO INPUT "YT(I,J="; YT(L,;,J): PRINT 
5090 INPUT "ZT(I,J)=";:2ZT(I;,J): PRINT 
3100 INPUT "UN AUTRE POINT ';R# 
2110 IF LEFTS (R$,1) = "CO" THEN 5640 


5120 GOSURB 30=0 
2994 END 


PANGRAPHE DESSiN 


lb Moux de PANGRAPHE Je DENT Ur 


PANGRAPUE OBJET, ne” 


A -(CREFR UN OBJET) 
2-(STOCKER UN ORIET 
Z -CRhARGER LUN OBJET PANGRAPHE DESSIN 


À LCOMPLETER UN ORJET 
D_(MoDIFiER UN OBJET) 

G- REPRESENTER UN OBJET 

7—- STOCKER UNE 1MAÂGE 

R- CHARGER UVE IMAGE 

7 (M ANIPULER UN OBJET) 
19-(DEFINIR UN RLOC D'ORJETS) 
AA- CONSULTER UN FICHIER RLOC 
A2 — 

1 

14 — 

15e 

1€ 

17- AFFICHER LE CATALOGUE 
AR- SORTIR DU PROGÇRAMMHE 





VOTRE Choix ? D 


Gnure Où eut Le Aux aus ce man 
AGE ven". Elle eunco donet 2. 
à PANGRAPHE OBJET. 


ILOADPANGRAPHE DESSIN 


, ra pau tfise, 


JLIST 

OO IF FD = 1 THENS 

1 L=0:REM PANGRAPHE DESSIN 5/©®/24 

= DIM XT(30,97),YT(30,9),2ZT(30,9),X(30,93,Y(30,9),N(30O0):FD = 1 
3 D$ = CHARS (13) + CHRS# (4) 

> TEXT : HOME 

$S IFC + % O THEN 330 

10 HOME 

20 REM 


FROGRAMME MENU 


30 VTAR is: HTAER 15 

40 PRINT "VOLILEZE-VOuUS:" 

30 FORTE = 1 TO S0G: NEXT 

60 HOME 

60 PRINT 

1=! VTARB 3: HTAS 25: PRINT "'PANGRAPHE DESSIN" 
FO WTA 1 


100 PRINT "'1-(CREER UN OBJET)" 

110 PRINT ‘2-(STOCKER UN OBJET)" 

120 PRINT "'3-CHARGER UN OBJET" 

130 PRINT "4-(COMPLETER UN OBJET)" 

140 PRINT "5- (MODIFIER UN OBJET) 

15390 PRINT "G6-REPRESENTER UN OBJET" 

160 PRINT "7-STOCKER UNE IMAGE" 

170 PRINT "'S-CHARGER UNE IMAGE" 

120 PRINT "S-(MANIPULER UN ©GBJET)' 

190 PRINT "i0-(DEFINIR UN BLOC D'OBJETS)" 

200 PRINT '11-CONSULTER UN FICHIER BLOG" 

2140 PRINT "12—" 

220 FRINT ‘13-" ‘ 
2930 PRINT ‘'14—" 

240 PRINT "{15—" 

250 PRINT ‘16—" 

260 PRINT "'17-ARFFICHER LE CATALOGUE" 

2/0 PRINT ‘"15-SORTIR DU PROGRAMME" 

270 INPUT "VOTRE CHOIX ";C 

300 I1FC= 17 THEN PRINT DE'CATALOG": GET 44%: GET 4% 
310 IF C= 1" THEN END 

320 IF C= 19 THEN PRINT D#'RUNPANGRAPHE PRINCIPAL 
330 ON € GOSUE 40000,40000,4000,40000,40000,7000,2000,90 


00;,40000,40000,7 
3000 
999 GOTO 10 


40000 REM 


CHAINAGE SUR P/OBJET 
40010 FRINT D$'"BLOADCHAIN ASE2O" 
40020 CALL SEO"PANGRAPHE OBJET" 


Po 
Wa PAR PRO UE EPS 
4000 REM 


CHARGEMENT OBJET 


4010 INPUT "NOM DE L'OBJET "';:0$# 
4020 D = CHRS (4) 

4030 PRINT D#$'OPEN';:O# 

4040 PRINT D$'READ':0# 

4050 INPUT L 

4060 FOR I=1iTOL 

4070 INPUT Nil) 

4020 NEXT I 

4090 FOR I=1TOL 

4100 FOR J=1 TO NI) 

4110 INPUT XT(1,J): INPUT YT(I,4): INPUT ZTéIl,J) 
4170 NEXT J: NEXT I 

4130 PRINT D#'"'CLOSE";0osS 

4999 RETURN 

5000 GOSUE TO00 

5999 RETURN 


noipon des che dj cermea 


£7000 


RE M 


LECTURE FICHIER BLOC 


29005 
27010 
27020 
297030 
=:7040 
27050 
29060 
290685 
T0 7r0 
2900 
TO TEO 
PONT 


Tail Ke 


HOME : INPUT "NOM DU BLOC 
D$ = CHRS (4) 
PRINT D$'"O©OPFE N'" 
PRINT D#$'"RE AD" 
INPUT EE 

FOR I=1TOE 
INPUT ÆELS#(I) 

NE XT I 

PRINT D#'CLOSE’";,ELS# 

FOR I1=1 TOE: PRINT EL#(I):- 
RO: TT 1 TO 000: NEXT TT 
RETURN 


rare Cmunve {a abri cal A Pages 


BL: PRINT 


EL S 
, Bt+ 


NE XT I 


+0 


REPRESENTER 
UN OBJET 


L'obtet (ou La obyct) Que Mona Arr Lens veprésentis , 7e Anlrent 

queflquopart dana £ 'eqa oûuet XT, NT, ZT. 

Pour ion une vue en maatpedlire À 8 fellrn Uudrquer 
un PoiNT D'OBSERVATION de conclennees XM,YM,2 M. 
HR faut eut indiquer à La macfune tan quel action 
RL Haut 'rgandn cet opt, C'oà due ovivtr La 
FENETRE DE VISION : 


nr 


Mo ta AAA TU A GUuL Net A4 PP OUArTNA à Lan À ea ler L'OUVERTURE 
ANGULAIRE AN de cofte Henite , clef à da née FOCALE notre 
ZOCM. 

L'ATTITUDE 4: L'baovratiur doperd de ais cn ga , que- 
L'on ndlvure un Un rod d'afyareil photepaphque 











T<— AZIMUT 10 


Pour ke ut à fout conplit, on olorrait Lea Laure wluvenia 
Tous Loa Teis . Mais, Lama ot forma re ner. cle PANCGRAPHE 


mans me Aandramts que L'AZIMUT cf SITE, ma en 
{2 Cr de RE. C'est mauvais peur Lea venales, ef 
MAG US L'allappar un tbe . 





DÉVERS DU AU ROULIS 





ee RoULIS 


La queue idée canitinait à indique à €'odinateur j#x- mème, 
Lea angles d'animer ak de At. Maia cola immese un ea D cut 
Jémible que L'on pet Cut au Len cn à La 
machine. 





(OXr,0ÿr,02r) représente Le RÉFÉRENTIEL ABSOLU , vù à moi duquel 
on clifiumk Los crbriavuies CXT, NT, ZT) olxs POINTS OBJETS, 
M et Le pau d'absnualim , de cymolamnées (XM,YM,Z M} eÆ Le 
Biède Dinectanate (MXC MVL, MZr) couté en Metelot Len axes 
at haralliles aux ayes dx tièdas (OUT, OYT, 07T). 

Gun ce Fique, on voit Hs Han Los axés À (Arünut ) 
eÆ Sxk). 

La visée 4e fait an ouactun d'un faut G (X6,Y6,ZG) , et 
c'e at emaemblo oo cenolmuniss qui Aa ous à La 
machune . St Lo hout G 4e bouue Ste Le centre de pan 
oz L'obpet, par exemple, m aura Crutes Log chances ae Naganoler. 


871 


À ce Atade, on frrumeut ne dune : -paurquer me pas inclure 

ces cœndmmie obgt XG,YG,ZG ans La fier OBJET, ef 

stocker colle irberwattrour. Lena ou clear, a potage 

ruvcait 4e faire outomatiquement. Mas cfa mrat Gp 

nopricentin Wa paca da Nage , avec pAuauurs ob maison : 
Le fout ele ruée peu a 


& , 


“4 Grand on Hacsra €’ obtekt 
MMAIRIE ”, La duo ete viser 
HE Corne . 
Le pablème it utzut demi 4raa ouflur OÙ 4e tieune un ob4et 
vue ui à 4e chacun . Une Aolulin conauts à farce fun 





XT  A'amilua MAÏRIES8S-4p- 02 


NT 34 OÙ Maux : HARIE(SE/42/) 


Le 


Le vector MG D para connues ra 


CX=XG-XM 
CZ =2ZzG — ZM 


OU connait Lo Per À! wmatiu clin roumadtant ce caf ul € animek À 
LiE À L'OBSE RVA TEUR : 


+ L'axe Ha ent colèmiana à MG. 
W î 
U | —+ | 
| G t ne s 
V Caxe MW cena ie ce. 
M DTaëde Duinectan 
2T Las 
” A T at un hot cu L'obget, 8 
o ( ” t{ {f à 
XT 


ce mouveau Tridue, amemt(XA YA, ZA) 


2" onumat 2% Le ml 'opaauts", qui deunenrdnmut 24 Cmactennet 


LCAG A mn 


OV Ou : 


XT—- XM 
Aae ce MT NT —Y M 


étre 2 


O5 


RUE GAS Con À (AVE SM À XW =-SUS' Gr À 


mu YU- GAS SA  MVd YV= GA MW) YW 2 Su Su A 
LU- Su À ZzV- © ZW - Ca S 


On ea : | Ces À = CT Fra À = ST 
GœnS = CK Sun S=5SK 
do 
_— AU = Ck&CT __ ( XV= —ST _ Xw = —-SK x CT 
MU / Yu = ckxST MVS YV= cr MWS yw = -SK&XST 
ZU = SK ZV20 ZWwz CK 


XA = XL 4 XU + YL4 NU +ZLH ZA oo 


VA= XLæXU + YL HYU+ZLXZV Les COORPONNEES 
ZA = XLeXW4YLEYW+ZLAXZW  APPARENTES. 


7000 REM 


REPRESENTER UN OBJET 


7010 TEXT : HOME 
7020 PRINT : PRINT 
7030 INPUT "OUVERTURE ANGULAIRE "; AN: PRINT 
7040 PRINT "POINT L'OBSERVATION’ 
27050 PRINT : INPUT "K=";,xXM 
7080 INPUT "Y="; YM 
0070 INFUT "'2Z=";2ZM 
7040 PRINT : FRINT "CENTRE G LE L'IMAGE": PRINT : INPU 
T 'XG=";X*XG: INPUT 

NYCG='"'; QG: INPUT "'2ZGe";20 
7090 CX = XG —- XM:OY = VG —- YM:CZ = ZCr — ZM 
7100 Di = SOR (CX &# CX + CY # C7) 
7110 1F DI = O AND CZ x © THEN TE # O:KI = 3.141686 / 2: GOTO 
7210 
7120 IF Dl= © AND LZ “ © THEN TE 
TO 7210 
7130 KI = ATN (CZ # Li) 
7140 IF CX = OO AND CY > 
7150 IF CXKXæ OO AND CY : 
7180TE = ATN (CY / CX) 
7170 1F CX « O AND CY > 
F450 IF CX # Oo AND CY * 
7190 IF CX «# © AND CY = THEN TE 3,.1416 
7200 IFCX = OO AND CY * THEN TE — 3.14i6 / 2 
7210 AZ = TE # 17/0 / 3.14168:SI = KI &# 170 / 5.141868 
7220 REM AZ AZIMUT;;SI SITE 


O:KHi= — 3.149416 / À: GO 


THEN TE 
THEN TE 


À 


lLsrr QT S tele 
— 1.57: GOTO 7£10 


THEN TE 
TE 


3.149416 + TE 
3.141686 +'TE 


C6 06 06 
£. 
L 
pi 
À 


# NN 


7:30 CT = COS (TEE): ST = SIN (TE) 

7240 CK = COS (KI):SK = SIN (KI) 

7250 XU= CK + CT'YU = CK + ST:ZU = SK 

7E260 XV= — STYV = CT:ZzV = © 

7270 XW= — SK # CT:YUW = — SK # ST:ZW = CH 
72540 HOME 

7290 PRINT "1-OBJET LDEJA EN MEMOIRE": FRINT 
7300 PRINT "2-DESSIN PAR ELEMENTS": PRINT 
7310 PRINT "3-DESSIN FAS A4 PAS'": PRINT 

7320 PRINT '"'4-DESSIN PAR BLOC": PRINT 

7330 INFUT "VOTRE CHOIX ‘;C: PRINT 

7340 ON C GOSUER 17000,11000,30000,10000 

792 GET 4%: TEXT 

Ve dre 


RETURN Ÿ Ô 


Ve MSA Gua , Wan Ana ème 24 2e, plans 

Eee 1]: 2'otyt enr DÉJA Lun rbmane. . Un cheap 
A ue HOYAÂT UNIQUE ; qu' w az aa Leroux da clarger 

OK ur du qua i À idialuux que. L'on Ambat Le 

Roc d'un un Comet ln Wien manne 
d' y QUA An A Aexdio fran Le Cle A un cher 
d'Aéuatr ELÉCE) que pt aute Haros un à 
Ur NT op 

[ke 3]: Dern par à pan : dans ue afenman te. 
Le Homes gpaghque Nan foges txt ; mm frame 
Hu AR gra, das à fran, la Mauteaux oétel 
ET") Dem rar Loc loue À'elogect 
a profaflou env dE Aitioi eN ivre ven fx lun - 


Conetpardia Qu Au fognamme 1bda. OÙ ve 
Harue la fu. | | 
OBJET DEJA EN HEROÎRE : 


12000 REM 

OBJET DEJA EN MEMOIRE 

17010 HGRT : HOCOLORE 3 

12020 HPLOT 0,0 TO 279,0 TO 279,170 TO 0,170 TO 6,0 
12030 GOSUE 15000 


12040 FOR T= 1 TO 7: PRINT CHRS (7): NEXT T 
12999 RETURN 


En ure : où au Ée Cadre …… 


85 


DESSIN PAR ÉLÉHENTS : 


11960 REM 


DESSIN FAR ELEMENTS 


1919 HOME 

10*O INPUT "NOMBRE D'ELEME NTS ‘;# 

1030 FORK=- 1 TOE 

1040 INPUT "NOM ELEMENT SELS (K) 

1045 NEXT K 

1050 HR : HCOLOR= 3 

1060 HPLOT 0,0 TO 279,0 TO 27,170 TO 0,190 TO 0,0 
1070 HOR K= 1 TOE 

1020 Of = ELS(K) 

1090 GOSUE 4070 

1109 GOSUR 15000 

1110 NEXT K 

1120 FORT =1TO 7: FRINT CHRS (7): NEXT TT 
1999 RETURN 


PHPBB RBERÉE EH 


Prenvae Hate : Soire des Elewemr courtlln aut 


Hidin ELgce) 
Beuxieme partie : has 
DESSIN PAS À PAS 


0000 REM 


DESSIN PAS 4 FAS 


30010 HOME 

0020 INPUT "NOM FREMIER ELEMENT ‘;O#$: PRINT 
30030 GOSUE 40620 

30040 HMGRE : HOCCLOR= 8 


30050 HELOT 0,0 TO 279,0 TO 279,180 TO 0,190 TO 90 
30060 GOSUIR 15000: FOR TT = 1 TO 7: PRINT CHRS# (7): 


AP 
30070 GET 4%: GET AŒ% 


Su a Gp "Rips “ finaea (CHR ÉCI) ). 
Pris fraure a À oi dx GET À 


NE XT 


(a hate. Ée. 


Ÿ 
Une AMaÂE où PORE pouf alu ce nelgurne eu mpole 
Tente SANC line 4'imame, qui fox Gacte 2 


PAGE I eX qui Da. tete. 
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UN AUTRE ELEMENT ? 


M c'e mm, fu de CR ATUA fr DGA ane , Far Heu 

er %v 494 RETURN 

A c'e oui moe de L'elémant, longoument , nt 

Lan ro Ale pag tique Je tea POKEe AD HOC ei 
C Gosve 15465) ,e4 mure pause | 


30070 POKE —- 18303,0: FOKE — 14300,6: REM TEXTE 

30090 INFUT "UN AUTRE ELEMENT *° ":R#&: PRINT 

30100 IF LEFTS (RS,1) © + "OO" THEN 309799 

80110 INPUT ‘NOM DE L'ELEMENT ";,©$: PRINT 

30120 GOSUB 4020 

30130 PFOKE — 16304,0: PFOKE —- 14299,0: REM PAGEII 

30140 GOSUB 15000: FOR TT = 1 FO 7: PRINT CHRE (7): NE XT 
LE 

3013530 GET AS: GET A4 

30160 GOTO 300:0 


A0 


DESSIN PAR BLOC 


19000 REM 


RETURN 


LESSIN FAR BLOC 


190610 
10930 


INPUT "NOM DU BLOG ‘ 
HGR? : HOCOLOR= 3 
HPLOT 9,0 TO 279,0 TO 


EBLSES: FRINT 
106040 


10050 
10080 
10070 
100=0 
10090 
10100 
10799 


OS — 


24,190 TO O©,170 TO O©,0 
FOR K = 1 TOE 

EL#æ(K) 

CrOSUEB 4070 

TOSUE i5000 

NE XT K 

FORT = 1 TO ?: FRINT 
RETURN 


CHARS (70: NEXT T 


Que. leur ee NMem ou Ho Re, €'ntuio lan 
Ka. C se osur 29 989 ). 


A no us D eee RUE 
a feop paphique Î (@ deu ) en L'opalionx luvetge 


dF 


COQ 


RE M 


STOCKER PAGE Il 


1005 MOME 

2010 INPUT "NOM DE L'IMAGE ":1M# 

2020 D$ = CHREÆ (4) 

2030 PRINT DS$'EBSAVE";IMæ#;:",4#4000,L$#7000" 
$$% RETURN 

7000 REM 


CHARGER SUR PAGE II 


OO0OS5 MOME 

7010 INPUT "NOM DE L'IMAGE:"';I1MS# 
9015 HGRE : HCOLOR= 3 

FOEO D = CHARS (4) 

F030 PRINT D#'BLOAD'';IM#&;",4A#&$4000!! 
FOSC GET A% 

9999 TEXT : HOME : RETURN 


Rte 00 et Déc de rage 


IMAGE 


On Courte Jar bo Mr amomuees Rroimaeur mure le 
APPARENTES , c'ef à ua Leo comcleurds Coliriquue x 





15000 REM 


CALCUL ET TRACE IMAGE 


15910 FOR I= 1 TO L: FOR J = 1 TO NI) 


15040 XL = XT(I,;,J) —- *XM 
150850 YL = YT{L,J} — YM 
15040 ZL = ZT{I, JT) — ZM 
15090 XA = XL # XL) + YL # WLJ + ZL # ZU 
15100 YA = XL # XV + YL # VV + ZL # 2V 
15110 2A = XL # KW + VL + WII + TL + ZU 


en Corrobanim ri om ur L ‘ecran. 


cu {a "ifé POLAIRE. 


de. 7 Negniles PCR HIER 12 ef Jurnren {3 











La ra ,Beuve , je cmmmeunce a 
Corpandie Le éuatime ct tion 
ET à aan on cote 0 oumae 





Jo réfute of objet les ancion | avec RGuek Les Krmuncs 
CA Aux Comgren de Los Loi ce La PERSPECTIVE. Ghèce à Lux 
da pourraient cofçuflen ces canolernezs écran (X, Ÿ) 
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: Mars j'a nue Ait et chef FISH-EYE 





Sen OUVERTURE alex 90°. ns 
= La VA , j'ai É tmpuñion que Les Ammes né uit, 

dé Le départ, Une erreur Ésrclanmanta le D 
7 Ka mx. La VISION eût un GESTE, En eff un m0 
main invmolné et pratiquement aveugle. Pour ras 
naans. La fumure eùt que Le Bulos memes cte La nélène 
HE primerpalinent masdées au vrimmage ote la Cache 
fovéale, de L'axe pique . ÊE La HRconola que 04 cou es 

Aa iE sant man À € 'intanalts Luumairuue , mars à La VARIATION 


, _. 





SCHEMA DE 
LA REÉTINE 


maurement fe l'axe 
— Em kenme , où Am mal Le Lan 2mtre ca que 24 
Romans montent pan exemple clans Leurs Hus , et 
Un Énanx A lle. à ture certaine nemarance lrque. 
Loraraux Loisent ca fointes vi lea mu € enr. 





Lune confeure lie cle €'infmalins etat 
Ad psse Le. corvean Rama HrtA 
its 4 uen AE. 


TRACE DÙ HOUVEMENT 

DE LAMPES SUR UN 

ÉCRAN,DU ALA — La VISION cat une EXPLORATION aumancute 
REMANENCE 


l'axe oplique 24 Aomo comte din ge VNs 

D. CHAMP VISUEL. 

cles paouwds d'umténret. 
_. L'oeil d'Arthur et équipé roux valse 
ae 4er où POURSUITE ce € obuet. 
AZIMUT, STE , Rauuiaenft La néa ile 

Ce proue as Arque ns Ée. Cam que. 

€! ei 





_ Pourtant Les Qrmmes de asent aux ce 4 
lie 2e DC À. | 
- Oui, mari regarde € VISEUR 


mraleraltne ure POURSUITE 


im CODRDONNÉES POLAIRES. 
… KÆm'ya fra4 le Veux 






— Ann Los Hommes où cnatrut dus times ele POINTAGE 
Goaés au Le time. (agémut |A ) eur des raimma ete. 
Crmmeodiles ME CAMAQAACA Mau, quand SN 4 aat ote VISÉE, Ca 
nétronveut Le 4yilème qui Leur ext Le plus NATUREL , cat 
à dure um yleme cle com denmées PDOLAIRES, 


| 


er 7 —f, 
SES 
ue \ ! / . 
, M 
se 





ANGLE POLAIRE 


Dana L'opaalinnr DESSIN y €" ant am qufains 174 à NA le (axe 


Agua] 247 cave en Lex auaur p. Q M 


0 


De même | pudcelamanant, € ar ummt 
COORDONNÉES ÉCRAN X,Y Ysire 


pm 
AZIMUT 


Tu Ana qui 7 On cena mroli fier 2 uogramme ete 
constater de €'umage jen Lx oléfiniasonmt mn La Kate 

le 4 COORDONNÉES POLAIRES, 

_ Oui, la Arrat plus mots 

- EX cfa ermet d'inlinduure cles OUVERTURES ANGULAÎIRES 


_Danr WE FENÊTRE DE VISÉE nm je fera cote. 





V 


ISÉE POLAIRE 








x cit La bau le L'ane wrauof . 
CEUX 
| | vas 
.. DAS EN ETOIE S 
t L'écant am ) 
B 


4e Pr on 
Oanrd 


LE FISH-EVE 





L'écart am qu faire au 
afns alt die 30' 


Lorie Dire. 





7 







LŒIL DE MOUCHE 


ARaut a Ken A 
| L) 
Ne dite angnane À he 


mr u Comolennmées halaincs ole ces 

masts. Le Rand. niaunel re 

er. à els tn cencfe . Et 

agen cer de Coneihen ct à Ca aan. tion | 
.. 8 . SUN eau: ds mie Lux. RUN GA A 

L 'ecant an 


Ecant omaufaune Fax tmum 


@) dx TISH-ENE Le con 
Ée Cara 
ana 


& R= 307. 
CANAL A para. 


aus Oo un 
PUR 
Une. 
La . | . ” a 
| | huulaus à a axe 
et Aron trin 
à 


+ ornée 
La hepuneunt: ( 





4% à 
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_ l'Apple ha La name à L'aide de Limite clou 


HPLOT YA, YA To KR, Y8 Pa 
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V Î 1 


INT ‘1 
Ne HU}, é 





Aux Aù, Aicfonoyentz ) Nalriofire ce caQeuQ. cel 
Arapekure An a Aphie d'obrerwalinn - scan / 
Jar Aie - foire 


151214 IF X*8 = © AND YA = ©O AND ZA = © THEN ZA = .001 
15122 RO = SOR (VA EH YA + ZA # ZA) 

1512S IF XA = ©O THEN B = 90: GOTO Lie 7 

15126 B = ATN (RO / XA):B = BB # 1:10 / 3.1414 

15127 IF XxXA © THEN EE = B + i:0 

15130 IF VA = O AND 24 = ©O THEN A — 90: GOTO 151z0 
15140 IF ZA = Q AND YA : O THEN 4 = - 50: GOT 15150 
15150 IF ZA = Q AND VA 4 © THEN 4 = 90: GOTO 15150 
151460 4 = — ATN (VA # ZALA = À # 1:20 / 3.1414 

15170 IF ZA = O AND YA > OO THEN 2 = À — 1:50 

Le17 IF 22 OO AND YA = ©O THEN A4 = A4 + 1415:0 

15174 IF ZA : O AND YA = O THEN 4 = 1:=0 

15120 X = EE # SIN (A # 3,1416 / 1=O):VY = BE + COS (4 # 3.14i64 
# 1:10) 

15240 X{I,.J) 140+X+#:5S / AN 


152S0 YO, JD) = ES — 25 & w / A 
15260 NEXT J: NEXT I 


XCL,5) A Y(1,5) AoÂÛ Le Comolauness - Renan . 

M Ve am mali a Lier 21 Heoynents CAR Touccoat Le 
cou/lranT Lx ecfraire à casier . Ha dort Ex 
ORNE Une à ue (able our FE NETRAGE ) 


15250 FOR I=1TOL 
1S270 FOR J = 1 TO Nk«l) — 1 
15300 XA = X(I,J): VA = Y(I,J):FP = O:H = © 


- 
a 


15310 XE = X(I,J + 15-VE = WI, J + 1) 


OK pat en et Ale A Gacu Le rame t my 
HPLOT XA,YA To XR, YB 


A 


| : ur ; et À 
WaAÂT fixe ra doux à upon x Eole 
d'eaux. 
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FENE TRAGE 


15320 IF VA = VE AND VA % = ©Q AND YA # = 1970 THAÆN XL(1 
>) = OC:XL(Z) = 27 
DiYLéid = VA :TYLE) = WAFP = 1: GOTO 15450 
15375 IF xA XXE AND XA + OO THEN 15590 
15326 IF XA XEB AND XA 5 =79 “THEN 15570 
15330 IF XA XB AND XA 5 = OO AND XA # = 2/79 THEN XL(11) 
= XA:XL(2) = X 
A YL(1) = OO: YLÉE) = 190:HP = 1: GOTO 154:0 
15335 IF YB = YA AND YA + O THEN 155970 
15336 1 YB = YA AND YA : 170 THEN 15590 
15340 P= (YB — YA) / (XEB — XA) 
15360 YI= YA - FF + XA 


15370 IF YI* = O AND YI: = 190 THEN FP = 1:H = H + i1:XL( 
H) = O:YL(H) 

= Yi 
15390 YI= YA + (279 — XA) # F 
15400 IF YI * = O AND YI=< = 190 THEN FP = 1:H = H + 1:XL4 
Hi = 279:-YL\ 

H) = YI 
15470 XI = XA — YA / PF 
15430 IF XI : = © AND XI Hu = #79 THEN FF = 1:H = KH + 1:XL<CH 
y = XI:YL(H 

) = © 
15450 XI = XA + (1190 — VA) / P 
15460 IF XI * = O AND XI = 279 THEN FP = 1:H = H + 1:XL(H 
) = XI:YECH 

) = 190 


15470 IF FF= 0 THEN 155970 
15450 SA = {XA — XL(19) # (XA — XL)» + YA — YL(1)) # (YA — YL 
C2 2) 


RATS SB = (X5 — XL(10) + (XEB — XL(2)) + (VB — YL(19 FE (VE — YL 
EP Si = (XL (19 — XA) # (XL (1) — XB) + (YLÉ19 — YA) # CYLLI — Y 
2 Se = (XL(E) — XA) +» (XL (CS) — KB) + (YLÉE) — WA) # CYLEZ) — Y 
de IF SA # = O0 AND SB # = O THEN HPLOT XA,YA TO XXE 


*YB: GOTO 15390 
159510 1F SA * © AND SE *: © AMD S1 *# OO AND EE © ©QO THEN HF 
LOT XL(1),YL (1) 
TO XL), Y LEE): GOTO 155970 
1353520 IF SA CO THEN XD = XA:VDUD = YA 
15530 IF SE *“ O THEN *D = *EB:YLD = YE 
15560 IF S1 = O THEN XF = XL(1):YF = YL(1) 
15570 IF SE < O THEN XF = XL(H):NEF = YL(:) 
15550 HPEOT XD,Y*D TO XF, ,YF 
15570 NEXT J: NE XT I 


Laun le sdnetens astral on 
glus mecetiane cle 


scverkge ob ane 





MH 
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En didina al La perl nelalives dan point À ef 
Re rappel aux deux gants d'infection MA et Me, 
Lx La vole #R owec Le cadre . 

Redon L'axe OY Le L'énamn (au L'Apple IT Va 
‘£a Cl on Ca” ) - Y 





La pute de adult AB et P= (B8-Yva)/(x8-XA) 
Lequel da La ect AR ef Y - YA L VE — YA me 
X-XA  XR-YXA 





Pam climat ou code X=# OS YI-YA-PxXxA (x) 
La db AR re Ju Couper Le cadre qu'en deux prouts 
cu lu. &@ pont 4er à Al À : OR EE SES 


cond dmmk an code : X=274 > Y1: YA4+(274-XA)XP (@) 
A En A 4 Ss<YI<Ii2» 

Uitione lon t : Y=z# > XI =x4a- YA/p (Y) 
à nlnir mm << K3<273 

Qualrious lamet VE 14g > x1=XA + (19% -Y4)/P (6) 
a mm À  gB£<XI<279 


AR ve Cure fre cache : Â 
PA Se | à 
| 7100 


Corne. om La veux plus lon uns plc ane sta 
Len eutrlx ponts d'inlimctin MA et M? te la ect 
AR ovec Le cadre . "He nana à délirrrimer La eat Con 
nee den pouls A,B, MA,ME aux La dre | 
Pn 4e Lanta peur 4e Lane qu Le Anqne de produits 
Atafaunne : 

SA= MAÂ.U2 À 

S 6 z MA48.M28 

S4- AMA - BMA 
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On at commaut examen des furdutr 4calanss permet 
de aus Lo time du æoumaut à acer . 
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314 
: FENETRAGE 
132% JE ya 2VB AND YAD= BP AND YA<=ITX THEN 


XL(AÏ= GS: XLCL)2274: NL) = YA: YL(J= YA. 
FP= 1: GOTO1S#SgS 


me. ——— ms CS ne ms nées “rate 


S 45326 JF xA=XB AND XACY THEN 15540 
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AS 33% FKXAZ=XB AND XAY= g À ND YA Ce 274 
THEN XL(4)= YA: XLC2)= XA : Vt(1)=g: YLQ) 
Nr a GOTO 15484 
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—— mm — _—. mt — —— — — — *— 





545 335 IFVB= YA ANDYA<S THEN PET 
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(assse IFYB2VA AND VAYI99 THEN Ha 
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GRul de a pale 1534g P= M. rue KA) 


© 
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Ptnechion one a ASS6ES NI=YA-P+x X A 
bat X=g 
7 


ASIFS IF NIY=6 AND VI € = 199 THEN FP=1: 
H=H4+ A: XLCH)=g : YL(H) = 


= gene. on + 
ts Eu, —— -——— = mm 


tqs 
——————— tt tte trs me 
——_… 


15379 YVi= YA+C214— XA)XP TT 


TS F2 IF Yl >= ANDYI<=-198 THEN Fb=1: 
Hz +4: KL(H)=2274 : YVLCKH) = VI 
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hbimection auec La 154#2$% XI1=XA -VYA/F 
dk V = % 


_ - —— ———— , FA 
hr ne a me rs A . + — 


Tat d'udusecti on 15439 IFX1>= 7 AND x1 é ds 
anrec Le Hd Alue THEN FP=1: 
H=H+d: XL(H)= XL ':YL(H)=S 


mt —_———— 
ms —— ir — — 


Dee L Yÿ \ 
77 AT 4Sg IF X1Y28# AND XI<= 274 THEN FPS 4: 
7) H=H+4: KXL(H)= XI: YLCH)EI 
X 


E —— ———— _ ———…<_.— Lo ne —— 
ae ae ‘ me me + —— er, —— 


Caa vu AR ne Cœur Au LE FP=ÉTHEN 16540 


— —— —— —— —— ni —— ne ——— er 


Produit Seafaur A4 SA=(XA- XL(4))x(KA-XLC2)) 


MA À . M2A + (VA -YL() }x(NA-YLQ)) 
Produit Seal 46 44g SB=(X8-XLU))HRCXR -XLCe)) 
MAB .U28 + Üg- YLU))4 (VB YLC)) 
Piaduit falare 15442 SA (XLU)-xA)x (KL) XB) 
——— ———7 
AMA.£RHA + NL) - YA) CNLGIi- V8) 
Produit Feadane. 1844 S2-(XLG)-XA)CXLG)- XB). 
AZ. re OL) -YA)&CVYLO) - V8) 
nl ASSOp IF SA <= AND CB = Y THEN 
” : HPLOT XAYA To xR ,ŸR : é0TO 15540 
À 


ox Argument MA M2 A03 


ee AEEIS IF SAXE AND SB>S AND S1<e 
AND ST<É THEN HPLOT XL), VLC] TD 
A XL(2), YL(2): 6070 15562 


mn on 


4 'ituaux de AB 


ts 


D 4552@ JF SA<=S THEN XD=XA : YD= YA 


nz Ç début du mameut a fraun) 


MA 
15536 IFSR <= THENXD=%XR: VD-YS 


ASSEDIFSA<=S THEN kr = XL) : YF= YU) 
15656 1F S262@ THEN XF= XL): YF: YLQ) 
AFF 84 HPLOT XD, YD To XF, YF 


1554 NEXTI:NEXTI 
15 Ga RETURN 





IF FLD= 1 THENS 
L = C0: REM PANGRAPHE DESSIN 5/2/:4 
DIM XT(30,9),YT(30,9),2T(30,9),Xt 


D$ = CHRS (13) + CHRS (4) 
TE XT : MOME 
IF C+< % O THEN 330 


30;:7),Y(30,9),N(30):FD 


PANGRAPHE DESSiN 


à 


PROGRAMME MENU 


30 VTABRB 15: HTAB 15 
40 PRINT "VOULEZ-VOUS:" 
70 FORTE = 1 TO S00: NE XT 
60 HOME 
70 PRINT 
50 VTAB 53: HTAB 25: PRINT "PANGRAPHE LESSIN' 
70 VTABR 1 
100 PRINT “1-(CREER UN OBJET)" 
119 PRINT "2-(STOCKER UN OBJET)" 
1: PRINT “3-CHARGER UN OBJET! 
130 PRINT "4-(COMPLETER UN OBJET)" 
140 PRINT '"'S-(MODIFIER UN OBJET) 
150 PRINT "é-REPRESE NTER UN OBJET" 
1640 PRINT "7-STOCKER UNE IMAGE 
170 PRINT "Z&-CHARGER UNE IMAGE" 
1:50 FRINT "P-(MANIFULER UN OBJET)" 
190 PRINT "10-(DEFINIR UN BLOC D'OBJETS)" 
#00 PRINT ‘1 1-CONSULTER UN FICHIER ELOG"! 
2140 PRINT ‘'17-" 
& = PRINT "'13-" 
230 PRINT ‘14-—" 
240 PRINT ‘15—" 
2950 PRINT "1-1" 
260 PRINT "17-AFFICHER LE CATALOGUE" 
270 PRINT "15-SORTIR DU PROGRAMME" 
2970 INPUT "VOTRE CHOIX 1e 
300 IF C=17 THEN PRINT DS'CATALOG'"': GET A$: GET A# 
310 IF C= 12: THEN END 
320 IF C= 19 THEN PRINT DF'RUNPANGRAPHE PRINCIPAL 
330 ON C GOSUE 40000,40000,4000,49000,40000,7000,2000,90 
00,40000,40000,7 
7000 


9997 GOTO 10 


4090 


RE M 


CHARGEMENT OBJET 


4010 
4020 
4030 
4040 
4050 
4060 
4070 
400 
4090 
4100 
4110 
4120 
4130 
4999 
5000 
297979 


INPUT "NOM DE L'OBJET ",O0# 


D$ = 


CHR# (4) 


PRINT D#'OPFEN";0$ 


PRIN 
INPU 


FOR I 


INPU 


T D$"READ'",0s$ 
1 


nr 
_ 


i TOOL 
T Ni) 


NE XT I 


FOR I 


FOR 
INPU 


1 FTOL 
J 1 TO NI) 
T'XT(I,J): INPUT YT(I,J): 


INPUT ZT(éI,T) 


NEXT J: NEXT I 


PRIN 


T D$'"'CLOSE',O$ 


RETURN 
GOSUB 2000 
RETURN 
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7000 


RE M 


REPRESENTER UN OBJET 


7010 TEXT : HOME 
7020 PRINT : FRINT 
7030 INPUT "OUVERTURE ANGULAIRE "; AN: PRINT 
7040 PRINT "POINT D'OBSERVATION’" 
7050 PRINT : INPUT ''X='"'";, XM 
7060 INPUT ""Y='"';, Y M 
7070 INPUT "Z=' ZM 
7020 PRINT : PRINT "CENTRE G DE L'’IMAGE'': FRINT : INEU 
T''XG=",;XG: INPUT 
VYG='"';, VG: INPUT "2G=";727C 
7090 C©CX = XG —- XM:CY = YG — YM:CZ = ZG — ZM 
7100 Dil= SOR (CX # CX + CY # CT) 
71410 IF DI= O AND CZ + O THEN TE = O:KI = 3.141686 / #: GOT 
75:10 
7120 IF DI = O AND CZ 4 O THEN TE = OKI = - 3.148416 / £ GO 
TO +4*#10 
7180 Klz= ATN (CZ / DI) 
7440 IF CX = O©O AND CY »: OO THEN TE = 1.57: GOTO 7240 
7450 IF CX= O AND CY “ O THENTE = —- 1.57: GOTO 7210 
1160 TE = ATN (OCY # CX) 
7170 IF CX # O©O AND CY + © THEN TE + 2,14185 + TE 
7120 IF CX + O AND OC # © THEN TE = 3.141858 + TE 
7190 IF CX “# O©O AND CY = © THEN TE = 3.141 
7200 IF CX = OO AND CV #4 O0 THEN TE = —-3.1416 / = 
7510 AZ = TE +k 170 / 3,.1418:SI = KI Kk 170 / 3.148416 
7220 REM A7 AZIMUT;SI SITE 
7:30 CT = COS (TH):ST = SIN (TE) 
7240 CK = CLOS (KI):SK = SIN (KI) 
7:50 XU = CK + CT:YU = CK & ST:2ZÙ = SK 
7269 XV= —= ST-YV = CT:2ZY = 0 
7/70 XW= = SK #8 CTVUWO= — SK # ST:2W = CK 
7250 HOME 
7260 PRINT 'i-OBJET DEJA EN MEMOIRE": FRINT 
7300 PRINT "‘ST-DESSIN PAR ELEMENTS": PRINT 
7310 PRINT "3-DESSIN PAS A4 FAS'': PRINT 
7320 PRINT ‘'4-DESSIN PAR BLOC": PRINT 
7330 INFUT "VOTRE CHOIX ‘;C: PRINT 
7340 ON C GOSURB 12000,11000,30000,10000 
7FVSE GET A$: TE XT 
7999 RETURN 
21000 KREM 
STOCKER PFACrE II 
1005 HOME 
20140 INPUT "NOM DE L'IMAGE '";1M4# 
2020 D$ = CHARS (4) 
2030 PRINT D#'BSAVE",I1M#;'"',4#4000,L#$:000" 
2999 RETURN 
OGC REM 


CHARGER SUR PAGE II 


39005 
7010 
9015 
7070 
7030 
O6 
9999 


HOME 
INPUT "NOM DE L'IMAGE®* "';IMS 
HGRE : HCOLOR= 3 

L+t = CHREÆE (4) 

PRINT D#'BLOAD';IM#;'"',A$S4GO00" 
GET 4% 
TE RT © 


HOME : RETURN 


10000 RFEM 


DESSIN PAR ELOC 


10010 INPUT "NOM DU BLOC ";BLS: PRINT 

10930 HGR? : HCOLOR= 3 

10040 HPLOT ©,0 TO Z:79,0 TO 279,170 TO 0,190 TO &,0 
10050 FORK= 1TOE 

10060 ©$ = ELS(K) 

10070 GOSURB 40*20 

10070 GOSUEB 153000 

10090 NEXT K 

10100 FOR T = 1 TO 7: PRINT CHRS (7): NEXT T 

10999 RETURN 


106€ 


11000 


RE M 


DESSIN PAR ELEMENTS 


11010 
11020 
11030 
11040 
11045 
11050 
11060 
1:970 
1100 


HOME 

INPUT "NOMBRE D'ELEMENTS ‘;E# 
FOR K=1TOE 

INPUT "NOM ELEMENT ‘";EL#(K) 
NE XT K 

HGR =: HCOLORS= 3 


HPLOT 0,0 TO 279,0 TO 279,190 TO 0,190 TO 0,0 
FOR K=1TOE 

©O$ = ELS(K) 

GOSUE 40:0 

GOSURB 15000 

NE XT K 

FOR T = 
RETURN 
RE M 


1 TO 7: PRINT CHR$S (7): NEXT T 


OBJET DEJJA EN MEMOIRE 


12010 
12070 
12030 
12040 
12999 
15000 


HGRE : HCOLOR= 3 

HPLOT 0,9 TO 279,0 TO 279,170 TO 0,190 TO O©O,0 
GOSURB 1353000 

FORT = 1 TO 7: PRINT CHRS 7): 
RETURN 

RE M 


NEXT T 


CALCUL ET TRACE IMAGE 


15010 FOR I=1 TOOL: FOR J= 1 TO N‘tli) 
15040 XL = XT(I,J) — XM 
15050 YL = YT(I;J) — YVM 
15060 ZL = ZT(I,JI) — ZM 
15090 XA = XL # XU] + VL # YLI + ZL # ZU 
15100 VA = XL # KV + WE & WW + ZL # Z\ 
15110 ZA = XL # KW + IL # WIN + ZL # ZW 
15121 IF XA = 6 AND YA = O AND ZA = OO THEN ZA = .001 
15122 RO = SOGOR (YA # YA + ZA # ZA) 
1512S IF XA = O THEN B = 90: GOTO 1451277 
15126 B = AT (RO / X4):B = B # 120 / 3.1415 
15127 IF XA # O THEN B = EE + 1:00 
15130 IF YA = O AND ZA = O THEN A4 = 90: GOTO 1510 
15140 IF ZA = O AND YA » O THEN A = — GO: GOTO 15120 
15150 IF ZA = O AND YA # O THEN À = 90: GOTO 151#0 
15160 À = — ATN (VA / ZA): A = À # 10 / 3.141 
15170 IF ZA O AND YA : O THEN A4 = A — 1:z0 
15172 IF ZA O AND YA # O©O THEN A = À + 1::0 
15174 JF ZA O AND VA = O THEN A4 = 10 
15150 X = B # SIN (A # 3.1416 / 120):Y = B # COS (LA # 3,14416 
# 10) 
15240 KXilrJ) = 140+X#S / AN 
15250 Y(lsJ) = ES — 25 # Ÿ / AN 
15260 NEXT J: NE XT I 
15220 FOR I=1 TOL 
15290 FOR J= 1 TO NI) — 1 
15300 XA = X(I,J): YA = V{I,J):FP = O:MHM = O 
15310 XEB = X{(I,J + 1):VE = Y(L,J + 1) 
1532 IF YA = YB AND VA x = O AND VA # = 190 THEN XE(1 
= O:XLiZ2) = T7 
PiYL(1I) = VAYLEO = WA:RP = 41: GOTO 154:0 
15325 IF XA = XEB AND) XA « © THEN 155970 
15326 IF XA = XB AND KA : 779 THEN 15590 
15330 IF XA = XB AND XA = oO AND XYA #4 = 279 THEN XL‘“1) 
= XA:XLIE) = X 
AIYLÉ12 = OG:YLIZ) = 190-FF = 1: GOTO 1540 
15335 IF YB = YA AND YA = O THEN 15590 
15336 IF YB = YA AND VA : 190 THEN 15590 
153340 P = i(YEB —- YA) / {XE — XA) 
15360 TI= VA PF x XA 
15370 IF YIr = 0 AND YI< = 1490 THEN FP = 1:HM = H + i-xLct 
H) = C:YL(H) 
= YI 
15390 YI= VA +(279 — XA) x F 
15400 IF YI # = O AND YI: = 190 THEN FF = 1:H = H + 4:XL<4 
H) = #7G:YL( 
H) = YI 
13420 XI= XS — YA / 
15430 IFR XI = O AND XI 4 = 279 THEN FF = 1:H = H + 1:*X11H 
3 = XI:YL(H 
) = © 
15450 XI = XA + 6190 — YA) / F 
154850 IF XI : = OO AND XI # = 779 THEN FP = 1-H = MH + 1:XL(H 
> = XI:YL(H 
) = 170 
13470 IF FF =CG THEN 15590 
15450 SA = (XA — XL. C1))} # (XA — XL (D)) + (VA — WLO1Dÿ # YA — YL 


(9) 
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15490 SB = (XB — XL(1)) # (XE — XL(E)) + CYB — YLCID) # (VE — YL 


(2) 


15492 S1i = (XL(1) — XA) # CXL(1) — XB) + CYLC1) — YA) # CYLCA — 
EH) 

15494 SE = (XL(E) — XA) # (XLCT) — XB) + CYLOE) — VA) # CLOS) — Y 
BE) 

15500 IF SA « = O AND SE = O©O THEN HPLOT XA,YA TO XEB 


:*YB: GOTO 15570 


15510 


IF SA + OO AND SB * © AND Si # © AND SE£ 


LOT XL(1,YL(1) 


TO AL), YL (2): 


GOTO 155970 


15520 IF SA *# = ©O THEN XD = XA:YD = YA 
15530 IF SB *# = ©O THEN XD = XB:YD = YB 
15560 IF Si # = O THEN XF = XL(1)-:YF = YL(1) 
15570 IF SE « = O THEN XF = XL(S):YEF = YL(C£) 
15520 HPLOT XD,YD TO XF, ,YF 

1415590 NEXT J: NEXT I 

15999 RETURN 

2797000 REM 


LECTURE FICHIER BLOC 


29005 HOME : INPUT "NOM DU BLOC ";BL#$: PRINT 
29019 D$ = CHRE# (4) 

29020 PRINT D#'"'COPEN'"';ElL+ 

29030 PRINT DF'"READ';ELS 

2040 INPUT E 

29050 HORI1=1TOE 

27060 INPUT EL$#iIl) 

29085 NEXT I 

E9070 PRINT D$'CLOSE":BL+ 

2905%0 FOR I=1 TO E: PRINT ELS#{I): NEXT I 
29050 FOR TT = 1 TO 000: NEXT TT 

299$9 RETURN 

30000 REM 


DESSIN PAS A4 PAS 


“: © THEN HP 


30010 HOME 

30070 INPUT "NOM PREMIER ELEMENT ";CO#$: PRINT 

30030 GOSUEB 4020 

230040 HGRE : HCOLORE= £& 

30050 HPLOT 0,0 TO 279,0 TO 279,170 TO 0;:190 TO 0,0 

30060 GOSURB 15000: FOR TT = 1 TO 7: PRINT CHRS (7): NE XT 
in 

30070 GET A$: GET A$ 

3000 POKE —- 16303,0: PORKE — 16300,0: REM TEXTE 

30070 INFUT "UN AUTRE ELEMENT 7 '";3R#: PRINT 

30100 IF LEFTS (R$,1) © % "OO" THEN 30999 

30110 INPUT "NOM DE L'ELEMENT ‘";O$: PRINT 

30120 GOSUEB 40%:0 

30130 POKE - 163804,0: POKE — 16279,0: REM PAGEII 

30140 GOSUB 15000: FOR TT = 1 TO 7: PRINT CHRS (7): NE XT 
TT 

30150 GET 44: GET A4F 

301850 GOTO 30070 

3097997 RETURN 

40000 REM 


CHAINAGE SUR F/OBJET 
40010 PRINT D$'BLOADOCHAIN,ASEO" 
40070 CALL SEO'FANGRAPHE CBJET" 


Remarque : 


l'ensemble PANGRAPHE-OBJET + PANGRAPHE 
DESSIN a été conçu pour pouvoir être aisément récupéré et 
modifié par l'utilisateur, qui trouvera là une initiation à Îa 
CONCEPTION ASSISTEE SUR ORDINATEUR (CAO). 
Les Menus comportent des “lignes vides”, que le lecteur pourra 
remplir au gré de son imagination. 


1999 : Le BASIC moderne ne comportent plus de “lignes 
programmes". Les têtes de sous-programmes sont repérées à 
l'aide "d'étiquettes", ce qui donne encore plus de souplesse à 
l'ensemble. Toujours est-il que l'ensemble proposé est 
MODULAIRE et que l'utilisateur peut ajouter des sous- 
programmes à l'infini pour enrichir celui-ci. 108 
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COMMENT UTILISER 
PANGRAPHE 


NON ù 
PANGRAPHE OBJET 
PANGRAPHE DESSIN 
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